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SC/FOX SBC32 (Single Board Computer32) 
• 16, 20, or 24 MHz input clock operation. 
•64K to 512K bytes O-wait-state SRAM. 
•64K bytes of shadow EPROM. 
•SC/Forth32 in EPROM included. 
•56-Kbaud RS232 serial port. 
•Two 50-pin application headers. 
•4 Layer, Eurocard size: 100mm by 160mm. 
•Optional prototyping plug-on board. 
•Retail from $995 with SC/Forth32. 



SC/Forth32 Interactive Language 
•Forth 83 standard with 32-bit extensions. 
• Vectored I/O and recursion. 
•Supports ASCII text file or block source code. 
•Double number (64-bit) support. 
•Extended control structures. 
•Byte, word, and long word access. 
•Microcode support for custom SC32 instructions. 
•Easy turnkey system generation. 
•Compatible with SC/Forth for RTX 2000. 



SC32 Forth Chip 

•32-bit CMOS microprocessor in 85-pin PGA. 
• 1-cycle instruction execution. 
•Non-multiplexed 32-bit adr bus & data bus. 
•16 Gbyte contiguous data space. 
•2 Gbyte non-segmented code space. 



SC/FOX Development System 
•MS DOS screen editor with pull-down menus. 
•Load and run from editor capability. 
•Program spawning with exit back to editor. 
•Multiple file loading. 
•Advanced block copy and move feature. 



Ideal for embedded-systems control, high precision numercial processing, data acquisition, 
and process control applications. For additional information, please contact call us at: 



SILICON COMPOSERS INC, 208 California Avenue, Palo Alto, CA 94306 (415) 322-8763 
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UPSCALE NUMBER INPUT - GLENN UNDERMAN 

8 

In addition to number input, this package includes formatted number output, number printing, and number-to-formatted- 
string conversions. It comes with a test suite to validate your own implementation of these features, and to inspire you with 
m ideas. This article builds on earlier work by Mike Elola, using user-friendly "picture strings" for numeric output and input. 
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EXTENSIBLE OPTIMIZING COMPILER ■ ANDREW SCOTT 

14 

Are you ever going to face the challenge of that f ast-and-fancy C code? Put away your toys and roll out your own turbo- 
charged Forth! This method combines typical Forth phrases into equivalent native instructions. It doesn't require "smart" 
Forth primitives or extensive changes to the outer interpreter. Plus, the optimizer is extensible, permitting new rules to 
be added at compile time. 

FORST: A 68000 NATIVE-CODE FORTH ■ JOHN REDMOND 

20 

This begins a three-part series about a 32-bit, subroutine-threaded Forth for the Atari ST, whose OS ". . .is pretty much 
a 68000 clone of MS-DOS." The system has a number of interesting and unique characteristics, but attention has been 
given to compatibility with existing source code. Noting the perceived limitations of traditional Forth disk I/O, the author 
also incorporates multiple files and redirectable buffered I/O. 

DICTIONARY STRUCTURES AND FORTH - WU QIAN 

26 

One dictionary, a pair of stacks, and a dictionary-management system comprise Forth. The author discusses dictionary 
structures in general, and sheds light on Forth's interior landscape by comparing it to systems that are more strictly modular 
or hierarchical in nature. His premise: you will use Forth more effectively and more expertly if you better understand its 
underpinnings. 

INTERACTIVE CONTROL STRUCTURES - JOHN R. HAYES 

28 

This article describes an easy way to provide control structures that behave consistently, whether interpreted or compiled. 
If mere consistent behavior doesn' t convince you to implement these routines — which may become indispensable — here 
are three sample uses for them: 
8 do i . loop 

create squares 100 do i i * , loop 
Forth-7 9? if " Forth83-emulator" load-file then 
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METACOMPILE BY DEFINING TWICE - CHESTER H. PAGE 

31 

This metacompiler puts the host Forth in out-of-the-way memory to create a new Forth dialect in normal memory. After 
one complete pass through all new definitions, a second pass overwrites each with the final addresses. This technique 
® maintains the correct links between words, and sees that the proper vocabularies are searched in each pass. 
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arning — whether you are a moder- 
ately proficient or a profoundly immodest 
Forth programmer, you'll find some chal- 
lenges herein. A couple of our contents- 
page thermometers almost shattered, but 
some of you wanted to sink your teeth into 
advanced topics. . . 

Phil Koopman, Jr. suggested in our last 
issue — and plenty of working, real-world 
evidence supports him — that Forth is the 
language of choice for embedded control 
systems. But now Wu Qian explains 
Form's underlying structure in a way that 
makes it seem the ideal design-and-con- 
struction kit for operating systems. Every 
programmer seems to have his own idea 
about what Forth is and what it does best. It 
brings to mind Kim Harris' early article in 
Dr. Dobb's Journal (1981), still the semi- 
nal description of "The Forth Philosophy" 
in the minds of many. It was amusing then 
to think that some people couldn't decide 
whether Forth was a language, an operating 
system, a way of thinking, or a metaphor. 

Forth still retains a mutative, slippery 
kindof strength that is hard to convey to the 
uninitiated. That is why it's so tough to sell, 
and why Forth marketing pitches of the past 
often used an "all things to all people" line 
that no one took seriously. Of course we 
could make Forth into something more 
graspable and less elusive; but that, we 
suspect, is no longer Forth. We are still 
unable to say in meaningful specifics just 
what Forth is, unable to agree on any less- 
than-global description. 

Phil's idea, applied expertly, could 
bring Forth into the spotlight. NASA's 
Douglas Ross evidently agrees, for he 
wrote a vociferous letter to Electronic De- 
sign in response to an editorial titled, 
"Embedded Programming: C or Ada?" that 
only passingly mentions Forth and Pascal. 
As Douglas points out, "Forth, for those 



who don't know, was created in the early 
1970s by Charles Moore to specifically 
address the needs of programming control 
applications, in an interactive and efficient 
manner. Forth has been the language of 
choice 'embedded' in processors to control 
video games, washing machines, calcula- 
tors, radio telescopes, and satellite control 
systems. It has also been written to run on 
probably the widest array of processors 
known." If you have access to back issues 
of that magazine, see the complete letter in 
the May 11, 1989 issue. (The added italics 
are mine, in reference to the Koopman 
article.) 

Mr. Ross also has a letter in this issue of 
Forth Dimensions, but related to the Sieve 
algorithm. Finding prime numbers is one of 
those programmer's perennials, it always 
seems to elicitreader response and rebuttal. 
Check our letters section for the latest on 
the topic and some interesting code. 

— Marlin Ouverson 
Editor 

Reviewers' Remarks 

We are pleased to bring to our pages 
another prize-winning Forth author. An- 
drew Scott's "Extensible Optimizer for 
Compiling Forth" won the award for Best 
Paper at the 1989 FORML Conference in 
Monterey, California. He and John Red- 
mond, whose ultimately optimized tour de 
ForST is featured in this issue, each present 
an optimizable, subroutine-threaded Forth. 
Unlike Redmond's work on the ST, Scott's 
is meant to be ported to many different 
microprocessors. Both authors present us 
with some original thinking, work showing 
that Forth does not have to suffer in terms of 
speed compared to other languages. These 
may turn out to be breakthrough develop- 
ments; readers are encouraged to study 
them and respond. 
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LETTERS 



Poly-Lingual FIG? 

In the Forth community, speaking about 
other languages isn't a taboo (maybe be- 
cause each of us is using his own Forth 
extension or Forth-like language). So usu- 
ally Forth people are curious about other 
languages; for one, I would like to include 
any good idea in my Forth system. It might 
be good for the Forth Interest Group to offer 
documentation about any existing lan- 
guage, especially those for which it is diffi- 
cult to find such details. At various times, 
Forth articles refer to Neon, Reptil, PIS- 
TOL, Stoic, Sphere, Magic-L, etc., but I 
don't know where to find documentation. 

Another idea is to extend the name of 
the Forth Interest Group to FLIG— Forth & 
Languages Interest Group. The Forth com- 
munity is a very good multi-language fo- 
rum; why don't we institutionalize that 
fact? 

Giorgio Kourtis 
Via Ameglia 1/9 
16136 Genova 
Italy 

A Smaller Prime Thousand... 

Our last issue contained a letter titled 
"Fast Thousand Seems Slow," in which 
Marc Hawley presents his improvement to 
the Eratosthenes Sieve code printedwithan 
earlier letter from Allan Rydberg (FD XII 
5). The following writer makes the same im- 
provements, but in a different dialect and 
with subtle differences that Sieve sifters 
may find of interest. 

Dear Sirs, 

....I will describe an optimized version 
of the original [Sieve]... The algorithm 
finds all prime numbers smaller than a cer- 
tain limit, rather than finding a given num- 
ber of primes. To each integer up to this 



Listing One. Scolnicov's smaller thousand. 



SCR 

1 
2 



# 7 7 H 

( Eratosthenes' Sieve Program by Ariel 'v. v"'.v:cov ) 

10000 CONSTANT NPRIMES 

CREATE PRIMES NPRIMES 8/1+ ALLOT 

HEX 

CREATE BIN-TBL 0102 . 0408 , 1020 , 4080 , 
DECIMAL 

: 2~ BIN-TBL + C@ ; 

: SET ( i -- ) 8 /MOD PRIMES + DUP C@ ROT 2" OR SWAP C! ; 
: GET ( i — bit-nonzero ) 8 /MOD PRIMES + C@ SWAP 2" AND 

: ELIM ( factor — ; eliminates all products of facta" ) 
DUP . " El iminating products of " . . " . . . " CR 
DUP DUP * NPRIMES SWAP ( factor from to ) 
DO I SET DUP +L00P DROP ; 



SCR # 8 8 H 

( SIEVE scr #2 ) 
1 

2 VARIABLE PRIMES-FOUND 

3 : SIEVE ( — ; sieves table ) 

4 2 BEGIN DUP GET NOT IF DUP ELIM THEN 

H. DUP DUP * NPRIMES < WHILE 1+ REPEAT DROP ; 

C PRIMES PRIMES-FOUND ! NPRIMES 1 DO 

I GET NOT IF I 8 .R 1 PRIMES-FOUND +! THEN LOOP 

9 : IN IT PRIMES NPRIMES 8/1+0 FILL ; 
10 

11 : FIND-PRIMES INIT SIEVE .PRIMES CR ; 

12 

13 

14 

15 



limit, we store a flag. We then proceed to 
eliminate all products of prime numbers: 
starting with 2 as our prime, we mark in our 
array the numbers 4, 6, 8, ... as unprime. 
Now we eliminate all products of three: 6, 9, 
12, ... Examining our array, we find 4 is 
unprime, so there is no need to eliminate its 
products, these having already been elimi- 
nated by one (or more) of its prime factors 
(in this case, 2). Continuing, we eliminate 
10, 15, 20,..., then 14,21,28, ...,etc. We 
observe, however, that we can begin elimi- 
nating products of any prime number p at 
p A 2, since any product of p which is smaller 
than p A 2 must also be a product of a lower 



prime, and will thus already have been 
eliminated. We end the process when the 
square of the prime we are about to use for 
our eliminations is larger than our limit. All 
we now have to do is print the prime num- 
bers. 

I enclose a short (two screens) Forth 
implementation of the algorithm, written 
for clarity rather than speed. It is written in 
a Forth-79/fig-FORTH hybrid, but does 
not contain any irregular features. All 
primes up to 10,000 are found and printed. 
Since there are 1 230 primes up to this limit, 
comparisons can be made. On my 2 MHz 
6502 system (a BBC computer running 
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Acornsoft FORTH), the process takes 1 14 
seconds, with half of this time used by 
. primes and only 57 seconds for finding 
the primes. Doubtless, the program will run 
much faster on the Amiga. Memory used is 
1623 bytes, since only one bit is used to 
represent each number. The running time 
for the program grows as the square root of 
the limit number, compared with linear 
times for Mr. Rydberg's program. How- 
ever, storage space does grow linearly in 
my program, while Mr. Rydberg's grows 
far less. 

Finally, a few comments on Mr. 
Rydberg's comments: 

• Division on a computer is carried out in 
exactly the way he describes, except that 
the quotient is also calculated on the way. 
A primitive MOD should, therefore, be 
faster than his test. 

• To find the squares of the primes in a 
different way, utilize the congruences 

1 A 2= 1,2*2= 1+3,3 A 2= 1+3+5 n A 2 

= l+3+...+2*n-l. Thus, to find the 
square of the newly found prime p, use 
the square of the previous prime q: p A 2 = 
q*2 + (2*q+l) + (2*q+3) + . . . + (2*p-l). 
It is unclear, however, if this will be 
faster for large primes, since they are 
widely dispersed. 

• In testing the integers one-by-one for 
primeness, only integers of the form 
6n±l need to be tested, since any other 
remainder after division by 6 means the 



number is divisible by 2 or 3. (Thanks to 
my younger brother for this.) 

Yours, 

Ariel Scolnicov 
NofHarim96, Box 2747 
Mevasseret Zion 
Israel 90805 

...and the Fastest (?) Thousand 
Dear Sir, 

In the November 1989 edition of BYTE, 
Milton Pope's letter presents a fast Sieve 
algorithm in BASIC based on the work pre- 
sented by Nick Pelling in a letter from the 
May 1989 issue of that magazine. He 
showed two versions of the algorithm and 
suggested a third, even more efficient, al- 
gorithm. 

Presented here is a fast Sieve using all 
the ideas suggested by Mr. Pope. It uses 
only prime numbers to test multiples 
against, starting at the square of the prime, 
up to the square root of the array being 
searched. 

The array represents only the odd num- 
bers (except for index 0, which represents 
the prime 2). Therefore, you can find all the 
primes in value up to two times the array 
size. The index values 1, 2, 3, 4,... corre- 
spond to the numbers 3,5,7, 9,. . . 

primes computes and displays the 
number of primes found in the array. 
. primes displays the prime values (ten to 
a line), size .primes displays all the 
prime values from 2 through 2*size. 



Yours truly, 
Douglas Ross 
NASA GFC 
Code 728 

Greenbelt, Maryland 20771 

Macro Update 
Dear Marlin, 

The article "Macro Generation" by Don 
Taylor (FD VII/1) is labelled as Forth-83 
but its definitions wouldn't work on a 
Forth-83 system. It uses T IB as if it were a 
variable, and doesn't use #TIB to set the 
length of the console input stream. I guess 
this is a little late to report errors, but the 
macro generator seems quite clever and 
worth using sometimes to cut away the 
nest-unnest overhead of short colon defini- 
tions and to help make source code more 
readable. Screens one through four here 
hold a definition that works on my Forth-83 
system. I renamed TIB ! to ! TIB to more 
clearly show that its function is to restore 
something, not memory access. 

This version of MACRO : is an extension 
of the normal interpretation of the input 
stream. It implicity assumes that, after its 
compiled string is installed as the new input 
stream, control immediately returns to 
words that interpret (and execute or com- 
pile) the input stream. Its macros can't be 
performed within a colon definition. They 
could be invoked within a program, but 
would not be executed until (and if) the 
program ended and gracefully returned 
control to the console. 

If interpret is available, interpreted 
tasks can be called from within an applica- 
tion. Screen five holds a definition that does 
so. The only use that occurs to me for such 
a run-time macro is to use FORGET 
<name> to trim startup words from an 
application and still be able to use FIND 
and * to locate words. (Calling allot 
with a negative number trims the dictionary 
but destroys the dictionary chains.) 

Sincerely, 
David Arnold 

616 1/2 W. Hamilton Street 
Kirksville, Missouri 63501 

Hindsight 

A gremlin struck "Stack Variables" in 
the last issue on page 21. With our apolo- 
gies, the first line of code in Figure One 
should be: 

: INCLUDE ( filename$ — ) 



Listing Two. Ross' fastest (?) thousand. 



\ Fastest (?) Eratosthenes Sieve Benchmark 

\ Douglas Ross, NASA BSFC, 12/6/89 

\ Computes the primes -from 2 to 2*SIZE 

\ There are 1028 primes up to 8190, 1899 up to 16380 

DECIMAL 

8190 CONSTANT SIZE 90 CONSTANT ROOT CREATE FLAGS SIZE ALLOT 
: DO-PRIME 

FLAGS SIZE 1 FILL \ initialize array 

ROOT 1 \ do ROOT times 

DO FLAGS I + C3 \ flagsEiJ — 

IF I 2* 1+ DUP 2* SWAP DUP * \ step primed — 

BEGIN DUP SIZE 2* IK \ step prime-'"2 ? — 

WHILE OVER 2/ \ step prime"2 i — 

FLAGS + C! \ step prime"2 — ! -flagCil = 

OVER + \ step prime'-2+stepCi 3 — 

REPEAT DROP DROP \ — 
THEN 
LOOP j 



The -following words are -for outputting information. 

: PRIMES 1 SIZE 1 DO FLAGS I + CS + LOOP . ." PRIMES " ; 
VARIABLE CNT 

! 10= CNT 3 1+ DUP 10 = IF CNT ! CR ELSE CNT ! THEN ; 
: .PRIMES (SIZE — ) CR 2 8 U.R 1 CNT ! 

1 DO FLAGS I + C3 IF I 2* 1+ 8 U.R 10= THEN LOOP ; 
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Listing Three. Arnold's macro update. 



Screenl 1 Forth-83 

( interpreted iacro definition 13Apr90dna ) 

1 only forth definitions also deciial 

2 create MACRO-MARK ( FORSET'able marker ) 
3 

4 : C, ( c -- ) here 1 allot c! ; 
5 

A : !TIB ( -- ) ( Can restore TIB if iacro boabs, ) 

7 C tib ] literal [ * tib >body ] literal ! 

8 .' TIB repaired. " cr quit ; 
9 

3 3 1 03d i i aflprii af p i nf ornrnfaf i nn ) 

b ( 5 load ( run-tine interpretation ) 
c 

d only forth definitions also deciial 

e ( Adapted fro* article by Don Taylor ) 

f ( pp. 27-28, 'Forth Dimensions' vol. 7, no. 1. ) 


Screenl 4 Forth-83 

( iacro - run-tiie iacro interpretation 13Apr90dna ) 

1 ~ source foriat ~ 

2 MACRO: <naie> <source_text> ... ; 

3 Put a 'spc' between the iacro text and the trailing ';'. 
4 

5 — coipilation & execution — 

6 Coipile iacro text as a counted string. 

7 Leave iacro text area long enough for possible 'ITIB' entry. 

8 Save state of input streai, call INTERPRET to execute iacro as 

9 if it were a console entry, then restore input streai. 

3 

b -- fault recovery — 

c ITIB <enter> can restore the TIB pointer if a iacro boibs. 
d Don't put a 'spc' before or after ITIB, because at lost 4 bytes 
e are guaranteed in a iacro text area. Then, F0R6ET the iacro, 
f which would have been corrupted by the console entry. 


Screenl 2 Forth-83 

( iacro - iiiediate interpretation 13Apr90dna ) 

1 -- source fonat ~ 

2 MACRO: <naie> <source_text> ... ; 

3 Put a 'spc' between the iacro text and the trailing ';'. 

4 ~ compilation & execution -- 

5 Coipile iacro text 4 a trailing '1' as a counted string. 

6 Leave iacro text area long enough for passible * ! TIB* entry. 

7 During interpretation (or coipilation) of input streai, save 

8 state of input streai & redirect it to coipiled text, which is 

9 treated as if it were a console entry. 

a ' ! ' at end of iacro restores state of innut streaa 

■* i Bfe VIIV w 1 IBWI W lcabv>K9 3kQbC Ul AIIUUv 3UI C flit 1 

b ~ fault recovery ~ 

c ! TIB <enter> can restore the TIB pointer if a iacro boibs. 
d Don't put a 'spc' before or after ! TIB, because at lost 4 bytes 
i are guaranteed in a iacro text area. Then, FORGET the iacro, 
f which would have been corrupted by the console entry. 


Screenl 5 Forth-83 

( iacro - iacro coipilation & execution 13Apr90dna ) 

1 : MACRO: ( - MACRO: <text> j ) 

2 create 

3 59 ( 'j' ) word count swap over 

4 dup c, 

5 ?dup if do count c, loop then ( len txt len -- .. ) 

6 drop 

7 4 swap - tax allot ( Ensure space for a 'ITIB' entry. ) 

8 does) ( .. str -- ) 

9 blk 8 )in 8 tib Itib 8 

a V >r )r >r 

* /I l\ f\ fs 

b count Itib I [ ' tib )body ] literal I blk I )in 1 
c interpret 
d r) r> r> r> 

e Itib I C ' tib >body J literal I >in I blk I j 
f 


Screenl 3 Forth-83 

( iacro - iacro coipilation & execution 13Apr90dna ) 

1 t Appended to iacro text to restore input streai. ! 
2:1 1 -- Itib tib >in blk -r- ) 

3 r> ( IP ) 

4 r> r> r> r> Itib ! [ ' tib >body ] literal ! >in ! blk ! 

5 >r ; iiiediate 

6 : MACRO: ( ~ ) 

7 create iiiediate 

8 59 ( ';' ) word count dup 1+ dup c, rot rot 

9 ?dup if do count c, loop then ( len+1 txt len -- .. ) 
a drop 124 ( '!' ) c, ( .. -- len+1 ) 

b 4 swap - tax allot ( Ensure space for a ITIB entry. ) 
c does) ( .. str -- -r- Itib tib >in blk ) 
d r> ( IP ) blk 8 >in 8 tib Itib 8 >r >r >r >r >r 
e count 

f Itib ! [ ' tib >body 3 literal ! blk ! >in ! ; 
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UPSCALE 

NUMBER INPUT 

GLENN UNDERMAN - SANTA CLARA, CALIFORNIA 



is article was inspired by Mike 
Elola's article in Forth Dimensions (XI/4). 
I liked the overall concept of the ideas pre- 
sented in his article, but found some points 
that were insufficient for my applications. 
The accompanying code adjusts for these 
insufficiencies. A comparison of Mike's 
implementation and mine is at the end of 
the article. 

In addition to number input, this pack- 
age includes formatted number output, 
number printing, and number-to-format- 
ted-string conversions. For those who im- 
plement this package on their system, it 
comes complete with some test cases at the 
end of the code, which you can run to 
validate the correctness of your implemen- 
tation and to inspire you with ideas for 
making your own picture strings. 



It is better to ... con- 
form to common user 
practice. 



Features 

The particular features provided by this 
implementation center around a picture 
string that describes the desired format of a 
number. The same picture string that is 
used to display a number can be used during 
the input of the number, ensuring that the 
number does not exceed the bounds of the 
picture string. Using a picture string for 
number input permits the number input 
routine to be more user friendly: for ex- 
ample, if a dollars-and-cents value is ex- 
pected, a dollars-and-cents template is dis- 
played during input This is generally more 
helpful than describing, in a prompt, that a 
dollars-and-cents value is expected. 



\ This code written for a 32-bit FORTH system that closely adheres to the 
\ FORTH-83 standard. The following extensions are used in this program: 

\ All numeric operators deal with 32-bit quantities. Other FORTH systems may 
\ require the use of double-number words to achieve the same data range. 

\ The "case" syntax used is from the Wizard of Costa Mesa, Wil Baden. 
\ Reference is Forth Dimensions Volume 8, Number 5, Page 29. 

\ The words "for" and "next" were borrowed from Chuck Moore, who invented them 
\ for the Novix chip. For those without them, I have used them only in ways 
\ where it is equivalent to substitute "0 do" for "for", and "loop" for "next". 

\ The words "2>r" and "2r>" are equivalent to ">r >r" and "r> r>", 
\ respectively. 

\ You may need some of these definitions if you don't have them: 

\ : 4/ 4 / ; 

\ : u>= swap u< ; 

\ : u> u< 0= ; 

\ : « for 2* next ; 

\ : swapdrop swap drop ; 

\ : beep 7 emit ; \ this is machine dependent 

\ : us>d ; \ "unsigned single to double" this is machine dependent 

\ My compiler recognizes numbers beginning with $ as being hex. If yours does 
\ not, the $ can be eliminated by using the decimal equivalent. 

\ The stack notation used is conventional if it fits on a single line, but 
\ unconventional if it doesn't. Multi-line stack notation is equivalent to 
\ the single line notation, and the use of a standard text editor "join lines" 
\ function can convert from multi-line notation to (very long) single line 
\ notation. Stated another way, the logical top-of -stack appears at the 
\ bottom of the notation. This notation was suggested by the reviewers, to 
\ clarify long stack notations. 

\ You can pick your own values for these terminal control keys: 

\ (Those listedformthe WordStar diamond for standard ASCI I QWERTY keyboards . ) 

19 constant cursorleft 

4 constant cursorright 

5 constant cursorup 
24 constant cursordown 

\ limit values (these are for a 32 bit implementation) 
$7fffffff constant maxpositive 
$ffffffff constant maxunsigned 
$80000000 constant maxnegative 

\ determine the maximum legal value for various signs. 
: ni~max ( sign — max 1/20/90 ) 
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next 1- endcase 



case 3 > if 4/ 1 swap for base @ * 
case 0= of maxunsigned endcase 
case 1 = of maxpositive endcase 
drop maxnegative ; 



\ insert a digit into value at the position given. 
: ni~adddigit ( value 
position 
sign 
digit 



adjusted_value 
position 
sign 

1 -1 1/20/90 ) 
\ first we bounds check to avoid overflow: 
\ all is well if: MAX r - position / digit 
\ where r = value % position 
\ v = value / position 

\ v = v * base + digit 

\ adjusted_value = v * position + 



base / value position / >= 



\ do the checking 

over ni~max 4 pick us>d 5 pick um/mod drop - us>d 4 pick um/mod swapdrop 

over - us>d base @ um/mod swapdrop 
4 pick us>d 5 pick um/mod swapdrop u< if drop -1 exit then 

\ do the work 

swap >r -rot >r us>d r@ um/mod base @ * rot + r@ * + 2r> ; 

\ perform error checking and return value adjustment after ni~adddigit 
: ni~adderrchk ( | — 1 original_key — original_key | 1/20/90) 
over if swap then drop ; 

\ delete a digit from value at the position given. 
: ni~deldigit ( value 
position 
sign 

adjusted_value 
position 

sign 1/20/90 ) 

2>r us>d r@ um/mod us>d base @ um/mod swapdrop r@ * + 2r> ; 

\ handle negation of the number, if within bounds 
: ni~negate ( value 
position 
sign 
key 

value 

adjusted_position 
adjusted_sign 

key|0 1/20/90 ) 
\ - key attempts to change the sign of the number 
\ + key attempts to make the number positive 

over 3 and if \ sign characters are permitted only if processing signed 
numbers 

dup ascii - = if 

over 2 xor 
else 

over -3 and 
then \ now we have desired sign 

dup ni~max 5 pick u>= if >r 2drop r> else drop then 
then ; 

\ increase position value to simulate cursor left command 
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After the template has been displayed, 
the user can enter the number using the 
digit keys (which, for some number bases, 
includes some of the alphabetic keys), the 
cursor control keys (which are implemen- 
tation defined), and the following charac- 
ters: 

Tells numin to negate the 
number. 

+ Tells numin to take theabso- 

lute value, 
backspace Tells numin to delete the 

digit to the left of the cursor. 

The cursor control keys have the fol- 
lowing effects: 

<- Moves the cursor one digit to the left 
— > Moves the cursor one digit to the right. 
T Adds one to the digit to the left of the 
cursor. 

i Subtracts one from the digit to the left 
of the cursor. 

The picture-string characters that are 
implemented by this code are as follows: 

Represents a digit position, displayed 
as a zero if no more significant digits 
remain in the number being displayed. 

9 Represents a digit position, displayed 
as a space if not significant 

8 Represents a digit position, displayed 
as an "_" if not significant. 

7 Represents a digit position, displayed 
as an "*" if not significant. 

$ Leftmost $ represents a floating-posi- 
tion $, which can float to the rightmost 
insignificant $ position. Subsequent 
$s represent digit positions, and the 
second and subsequent insignificant $ 
(from the right) are displayed as 
spaces. This only sounds complicated, 
in an attempt to be precise; generally 
speaking, a row of $ causes a single $ 
to be placed adjacent to the most sig- 
nificant digit. 

1 Represents zero or more digit posi- 
tions, exactly enough to display all 
remaining significant digits. 

2 Represents zero or more digit posi- 
tions, exactly enough to display all 
remaining significant digits, with an 
embedded comma every three digits. 

, represents a comma if there are sig- 
nificant digits to its left; if there are 
not, it displays as whatever the next 
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digit position to the right would have 
displayed as if it were not significant 
Resets the comma counter for implicit 
commas for the picture code 2. 
Displays as Resets the comma 
counter for implicit commas for the 
picture code 2. 

For signed numbers, additional picture 
codes are allowable. They are: 

Displays as "-" for negative numbers, 

space for non-negative numbers. 
+ Displays as "-"for negative numbers, 

"+" for non-negative numbers. 
( Displays as "("for negative numbers, 

space for non-negative numbers. 
) Displays as ")" for negative numbers, 

space for non-negative numbers. 

3 Displays as "CR" for negative num- 
bers, two spaces for non-negative 
numbers. 

4 Displays as "DB" for negative num- 
bers, "CR" for non-negative num- 
bers. 

5 Displays as "CR" for negative num- 
bers, "DB" for non-negative num- 
bers. 

6 Similar to $ above, but implements a 
floating "-" picture code. One posi- 
tion coded as a 6 will contain the sign 
indication, positions to the left will be 
blank, positions to the right will con- 
tain digits. 

Any other characters that might appear 
in a picture string are copied to the output 
string. 

The multitude of different techniques 
for displaying the sign reflects the multi- 
tude of commonly used techniques used 
by different groups of accountants. It is 
much better to have the capability to con- 
form to common user practice than to 
require that the user learn new techniques, 
so the whole multitude was implemented. 

Implementation 

The cursor is permitted to be posi- 
tioned only at digits. Rather than scan 
forward or backward in the picture string 
for the next digit position (which could be 
rather hard for picture codes 1 and 2, 
which represent multiple digits), the cur- 
sor position is maintained by keeping track 
of the position of the cursor in mathemati- 
cal terms — the "position" is given by the 
base raised to a power: the power zero 
represents the units position, the power 



\ permitted if: value base 6 / position >- value position > and 
: ni~incrpos ( value position sign — value adj_position sign flag 1/20/90 ) 
>r 2dup u> if 

r@ ni~max us>d base @ um/mod swapdrop over u>- if 

base 6 * false 
else 

true 
then 
else 

true 
then r> swap ; 

\ decrease position value to simulate cursor right command 
: ni~decrpos (value position sign — value adj_position sign flag 1/20/90 ) 
>r dup base @ u>- if base @ / false else true then r> swap ; 

\ increase value by 1 at current digit position 
: ni~incrdigit ( value 
position 
sign 

adjusted_value 
position 
sign 

flag 1/20/90 ) 

3dup ni~max rot - u> if true else 2>r r@ + 2r> false then ; 

\ decrease value by 1 at current digit position 
: ni~decrdigit ( value 
position 
sign 

adjusted_value 
position 
sign 

flag 1/20/90 ) 
over2 over2 u>= if 2>r r@ - 2r> false else true then ; 

\ The following number input helper word does initial processing on each 
\ keystroke. Because most of the keystrokes are expected to affect the value 
\ ofthenumber, this routine is called first to analyze each keystroke and 
\ apply it to the current numeric value. If the keystroke has no effect on 
\ the number, it is left on the stack. If this routine uses the keystroke, 
\ the value and sign on the stack are updated, and the keystroke replaced by 
\ a zero. One implication of this behavior is that the NUL character is 
\ ignored. This behavior seemed permissible in this context. If that is 
\ unacceptable in your application, you can either pre-check for NUL before 
\ calling this word, or define a meaning forNULwithin this word. This word 
\ is sensitive to the number base, and will permit as digits only those 
\ characters from 0-9, A-Z, and a-z that are permitted by the current number 
\ base. Support is provided only for number bases up to 36, base 36 is 
\ substituted for larger bases. 

: ni~keyadj ( value 
position 
sign 
key_code 

adjusted_value 
adjust ed_position 
adjusted_sign 

key_code|0 1/20/90 ) 



case ascn 



ascn + =or 



\ possible sign adjustment 
if ni~negate endcase 
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case 8 = 127 =or 
\ BS, DEL delete last digit 

of ni~deldigit false endcase 

case ascii 0-10 base @ min max u< 
\ digit from to 9 (within base bounds) 

if dup>r ascii - ni~adddigit r> ni~adderrchk endcase 

case ascii A - 26 base @ 10 - max min u< 
\ digit from A to Z (within bounds) 

if dup>r ascii A - 10 + ni~adddigit r> ni~adderrchk endcase 

case ascii a - 26 base @ 10 - max min u< 
\ digit from a to z (within bounds) 

if dup>r ascii a - 10 + ni~adddigit r> ni~adderrchk endcase 

case cursorleft — 
\ increase position for cursor left 

if >r ni~incrpos r> ni~adderrchk endcase 

case cursorright = 
\ decrease position for cursor right 

if >r ni~decrpos r> ni~adderrchk endcase 

\ the following two cases implement absolute value increase and decrease. 
\ if you wish to implement actual value increase and decrease, you could 
\ check the sign and call either ni~incrdigit or ni~decrdigit as needed. 

case cursorup = 
\ increase digit value 

if >r ni~incrdigit r> ni~adderrchk endcase 

case cursordown — 
\ decrease digit value 

if >r ni~decrdigit r> ni~adderrchk endcase 

\ no more cases: return key_code without adjustment 



: no~bumpcurs ( cursctrl — adjusted_cursctrl 1/20/90 ) 
dup 65535 and 255 > if 1+ then ; 

: no~bumpcursdigit ( cursctrl — adjusted_cursctrl 1/20/90 ) 
65536 + dup 65535 and 255 > if 255 - then ; 

: no~dispcurs ( cursctrl — 1/20/90 ) 
255 and dup 1 > if 1- for 8 emit next else drop then ; 

: no~savefill ( flags fillchar — adjusted_f lags 1/20/90 ) 
swap -256 and or ; 

: no~fillout ( flags — adjusted_f lags 1/20/90 ) 
dup 255 and dup hold ascii $ - if bl no~savefill $2000 or then ; 

: no~# ( value 
sign 
cursctrl 
flags 

adjusted_value 
sign 

adjusted_cursctrl 

flags 1/20/90 ) 

3 pick if 

>r 2>r # 2r> \ emit a digit, if there are any left 
else 

no~fillout >r \ emit the fill character if no digits left 
then no~bumpcursdigit r> ; 



one represents the "tens" position, the 
power two the "hundreds" position, etc. 
The position also happens to be a conven- 
ient concept for digit incrementing and de- 
crementing; see the words 
ni~incrdigit and ni~decrdigit. 
Another use for the position is in bounds- 
checking the addition and deletion of digits 
in the words ni~adddigit and 
ni~deldigit. 

The number output routine plays a key 
role in this number input scheme. When a 
number is displayed (see the word 
no~displayer), both the value and the 
position are processed as the picture string 
is traversed from right to left, and in addi- 
tion to returning the total length of the 
output string, the distance in characters 
from the right edge of the output string to 
the cursor position is returned as well. 
These two values are exactly what the 
number input routine must have to adjust 
the cursor back to its original position be- 
fore attempting to display an updated 
value. 

Three types of valid keystrokes are 
accepted by the number input routine: the 
first type is comprised of the digits and the 
sign characters (- toggles the sign of the 
current value, + takes the absolute value of 
the current value); the second type are edit- 
ing keys (cursor movement and back- 
space); the third type are termination key- 
strokes (carriage return, space, and tab). 
The main input loop (ni~doinput) 
doesn't know or care what the first two 
types of keys are, it simply calls 
ni~keyadj to process the keystroke. If 
ni~keyad j recognizes the keystroke, it 
makes the appropriate adjustments to the 
state on the stack, and consumes the key- 
stroke. If the keystroke is not recognized, it 
remains on the stack. 

ni~doinput simply looks to see if 
the keystroke has been consumed: if so, it 
obtains another key and loops. If not, the 
keystroke is examined to see if it is a termi- 
nation key, in which case ni~doinput 
exits. All other keystrokes are processed by 
notifying the user of their invalidity by 
beeping. Note that some keystrokes are 
valid (and therefore consumed) in some 
states but not in others. 

Notice that because of the asymmetry of 
positive and negative values in two's com- 
plement arithmetic, it is possible to enter a 
negative number that is too big to negate, 
thus invalidating the + and - keystrokes 
until the number is reduced in magnitude. 
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These routines correctly handle this situ- 
ation, but if you think it is too confusing for 
the user, it can be avoided either by reduc- 
ing the maximum magnitude of negative 
numbers (maxnegative) by one, or by 
only using picture strings that are con- 
strained to fewer than the maximum num- 
ber of digits possible. Another curious state 
that can be avoided by using fewer than the 
maximum number of digits, or by changing 
the specified maximums, is the limited 
range of the leftmost digit due to the binary 
representation of non-binary numbers. 

Comparison to Mike's numin 

The particular points in Mike's code 
that were insufficient for my applications 
are described here, with some comments as 
to how mine differs in each respect, and the 
tradeoffs. 

1. Use of a variable to maintain the 
context for SIGNED versus unsigned. 
Use of a variable to maintain the number of 
expected digits. Use of a variable to main- 
tain the number of current digits. Use of a 
variable to maintain the current picture 
string pointer. 

Although all the state variables could 
become user variables, permitting re-en- 
trancy in a multitasking environment, the 
number of user variables is limited on most 
implementations, so I chose to keep more 
information on the stack. Elimination of 
state variables also avoids the problem of 
making sure the state variables are all set to 
the proper values before each call to nu- 
min, which could otherwise be an easy 
source of program bugs. To avoid coding 
all the parameters to every call, additional 
words can be provided that supply constant 
values for some of the parameters: the need 
for such words and the values of the para- 
meters they supply can be determined after 
using numin when starting to code a pro- 
gram — it will soon become obvious what 
sets of parameters change and which are 
constant for a given program or subpro- 
gram 

2. maxdigits is not a sufficient tech- 
nique for preventing overflow in either the 
signed or unsigned case. I keep track of the 
number of digits in the picture and of the 
machine word-size limits, and restrict the 
user accordingly. 

3. No support is provided for intra- 
number digit editing. This is the cause of 



: no~out2 ( cursctrl 
flags 
charl 
char2 

adjusted_cursctrl 

flags 1/20/90 ) 
hold hold >r no-bumpcurs no~bumpcurs r> ; 

\ Picture codes 1 and 2 require an adjustment after emitting the last digit 
\ to compensate for the adjustable spacing they use. 
: no~fixslide ( cursctrl flags — adjusted_cursctrl flags 1/20/90 ) 
over 65535 and 255 > if swap 255 - swap then ; 

: no~lout ( value 
sign 
cursctrl 
flags 

adjusted_value 
sign 

adjusted_cursctrl 

flags 1/20/90 ) 
begin 3 pick while no~# repeat no~fixslide ; 

: no~2out ( value 
sign 
cursctrl 
flags 

adjusted_value 
sign 

adjusted_cursctrl 

flags 1/20/90 ) 

begin 3 pick while 
over 16 » 3 /mod if 
0= if 

ascii , hold >r no~bumpcurs 65535 and r> 

then 
else 

drop 
then 
no~# 

repeat no~fixslide ; 

: no~6out ( value 
sign 
cursctrl 
flags 

adjusted_value 
sign 

adjusted_cursctrl 

flags 1/20/90 ) 
bl no~savefill 3 pick if 

no~# 
else 

dup $1000 and if 

bl 
else 

$1000 or over2 2 and if ascii - else bl then 
then 

hold >r no~bumpcurs r> 
then ; 

\ rules for pictures: All characters not having special meaning are used 
\ verbatim. You can, of course, recode this to behave in exactly the way 
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\ you want your pictures to behave, but these give examples of possibilities. 

\ Leading $ is verbatim, subsequent $ used as floating $. 

\ 7 is used as * filling, 8 used as _ filling, 9 used as space filling, 

\ used as filling. 

\ 1 is usedasan expandable digit field, 2 is an expandable digit field with 
\ appropriately embedded commas. 

\ , used as comma if there are preceding significant digits, as the filling 
\ character if there was a filling character to the right of it, and no 
\ preceding significant digits, and as a comma if no filling character to 
\ its right. Also resets the digit position counter for implicit commas. 
\ . is verbatim, but resets the digit position counter for implicit commas. 

\ for signed numbers: +is a - for negative numbers, + for non-negative ones. 

\ - is a - for negative numbers, space for non-negative ones. 

\ ( and ) are themselves for negative numbers, spaces for non-negative ones. 

\ 3 is CR for negative numbers, 2 spaces for non-negative ones. 

\ 4 is DB for negative numbers, CR for non-negative ones. 

\ 5 is CR for negative numbers, DB for non-negative ones. 

\ Leading 6 is a sign position, subsequent 6 used as floating sign. 

: no~dispchar ( value 
sign 
cursctrl 
flags 
fmtchar 

adjusted_value 
sign 

(Screens continued on page 16.) 



my code being significantly larger than 
Mike's, but significantly eases the task of 
editing long numbers. 

4. Limited picture codes. These could 
easily be added to Mike's implementation, 
but after I did mine, I felt it was more useful 
to add them to mine. 

This code is placed in the public do- 
main. You are welcome to examine it, re- 
type it, modify it, give it away, or sell it. 
This code is fully tested and deemed to be 
working as submitted for publication; 
however, it carries no guarantee or war- 
ranty of fitness for any purpose. 



Glenn Linderman has been using 
Forth for six years, mostly on a large 
program for music transcription. 
That program has been used to pro- 
duce four books of sacred music with 
lyrics in four languages, and dozens 
of pieces of sheet music. 



Total control 
with LMI FORTH' 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 500 page manual written in plain English 

• Support for graphics.floating point, native code generation 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate states, 
and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8088, 68000, 6502, 8051 , 8096, 
1802, 6303, 6809, 68HC11,34010, V25, RTX-2000 

• No license fee or royalty for compiled applications 

JMBV# Laboratory Microsystems Incorporated 
MmWmM Post Office Box 10430, Marina delRey.CA 90295 
MMMmM Phone Credit Card Orders to: (213) 306-7412 
J^mttmm FAX: (213) 301-0761 



UPPER DECK FORTH $49 

• Based on Forth-83 Standard 

• Fully segmented architecture 

• Uses ordinary ASCII text files 

• Direct threaded code with top of stack in 
register for fast execution 

• Compiles 32K file in 6 seconds on 4.77 MHz 
IBM PC 

• Built-in multi-file full screen editor 

• Assembler, decompiler, source-level debugger 

• Turnkey application support, no royalties 

• Complete documentation 

• For IBM PC/XT/AT and compatibles with 256K, 
hard disk or floppy, DOS 2.0 or later 

Add $3 for shipping and handling (outside USA $15). 
CA residents add sales tax. 

U?perDec ^ Systems 

P.O. Box 263342, Escondido, CA 92026 
(619) 741-1075 
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EXTENSIBLE OPTIMIZING 

COMPILER 

ANDREW SCOTT - EDMONTON, ALBERTA, CANADA 



-Lorth implementations on some proc- 
essors suffer speed limitations. One solu- 
tion to this problem has involved imple- 
menting a subroutine-threaded system to 
eliminate inner interpreter overhead. Short 
primitives are usually compiled as in-line 
code. This paper describes a method by 
which Forth can be compiled to produce 
more optimized code by combining se- 
quences of Forth words into equivalent 
native instructions. The optimizer de- 
scribed does not require Forth primitives to 
be "smart" words, nor does itrequireexten- 
sive changes to the normal Forth outer 
interpreter. Also, the optimizer is exten- 
sible, permitting new optimization rules to 
be added at compile time. 

Introduction 

One criticism that has sometimes been 
unfairly applied to Forth is that it is not very 
fast. Granted, compared to code that an 
optimizing C compiler produces, the same 
algorithm expressed in indirect-threaded 
Forth on the same processor will execute 
more slowly. The mistake in making this 
comparison, however, is that apples are 
being compared to oranges. It would be 
more appropriate, for example, to compare 
indirect-threaded Forth to interpreted 
BASIC. 

A common solution to the perceived 
speed problem has been to implement Forth 
in the native processor's machine language 
instead of using an inner interpreter. These 
subroutine-threaded Forths typically run 
twice as fast as indirect-threaded systems 
on the same CPU. Most of the advantages 
of Forth are still available, but tools such as 
decompilers and code-altering words are 
difficult to implement. 

When I started work creating a subrou- 
tine-threaded Forth system, it became ap- 
parent that many optimizations could be 
made to further increase the execution 



speed of the compiled code. Many short 
primitive words, such as DUP, +, or EXIT, 
could be "in-lined" to avoid the overhead of 
subroutine calls and returns. This tech- 
nique is very common in currently avail- 
able subroutine-threaded Forths. One tech- 
nique that I do not believe is as common, 
the subjectof this paper, is the combining of 
sequences of Forth words into in-line code. 
For example, the common sequence DUP 
>R can be combined into one instruction on 
the 68000 CPU. 

In this paper, I will discuss the exten- 
sible optimizer I created for use with a 
subroutine-threaded Forth system. The tar- 
get CPU is a 68000, but most of the con- 
cepts I describe can be applied to any proc- 
essor. 



Writing an optimizing 
Forth compiler 
needn't require great 
effort. 



Sequence Optimizations 

The Forth virtual machine is a model of 
elegance and simplicity. The stack-based 
architecture is RISC-like in that it is not 
necessary to provide a dozen addressing 
modes for each instruction. CPU designers 
have realized this and have produced very 
powerful processors in a fraction of the 
chip space that conventional CPUs re- 
quired. Alas, it is not always possible to use 
a Forth chip. If you must use a conventional 
CPU, try to use as many of the processor's 
features as you can. If a dozen addressing 
modes are available, use them. 

It is very common for certain sequences 
of Forth words to appear together. For 
example, stack operations such as DUP >R 



and swap DROP, math operations such as 
lit +, and memory operations such as 
var @ and var ! are some of the idioms a 
Forth programmer uses regularly . In fact, in 
some Forths these primitives have been 
combined to form other "primitives" in an 
effort to improve efficiency. For example, 
N I P is an alias for SWAP DROP , and 1 + and 
2 * are used often for common math opera- 
tions. The problem with this approach is 
that the kernel becomes littered with words 
that don't provide any additional function- 
ality and make it more difficult for a new- 
comer to learn the language. I believe in the 
Forth philosophy that says, "Smaller is 
better." 

A more general approach is to let the 
compiler worry about how to optimize 
these sequences. A set of rules describes 
how each sequence should be translated 
into native machine code. The compiler 
uses these rules to determine if an optimiza- 
tion can take place and how it should be 
done. 

Compiler Operation 

The traditional Forth compiler simply 
lays down an address or a token when a 
word is compiled. To optimize a sequence 
of words, it would be necessary to either 
delay the code generation until the se- 
quence is complete or look back to what 
had been compiled previously. I chose the 
former approach. 

When a word is compiled, its address is 
remembered in a list If the word ends a 
sequence that can be optimized, the list is 
flushed and the optimized code is laid 
down. If a sequence ends prematurely, any 
partial optimizations that can be made from 
the list are compiled, and the remainder of 
the list is "recompiled" into a new list If no 
partial optimizations can be made, the first 
address on the list is compiled with a de- 
fault rule and the rest of the list is recom- 
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piled. 

This algorithm is illustrated in Figure 
One. In this example, the fictional Forth 
words A, B, C, X, and Y are used. The 
sequences ABC and X Y can be optimized, 
and A can also be in-lined individually. The 
code to be compiled is A B x Y. 

Optimization Rules 

In the spirit of Forth, the optimizer I 
developed is extensible. Additional rules 
can be added to the rules database at com- 
pile time (run time, from the compiler's 
point of view). Each rule specifies the se- 
quence of Forth words that can be con- 
densed, and the Forth code that should 
execute when this sequence is encountered. 
Typically, this involves invoking the as- 
sembler to lay down the in-line code. 

For example, some rules are given in 
Figure Two-a to translate common se- 
quences of Forth words to 68000 code. In 
those examples, the word SEQ : is used to 
mark the start of each sequence. It looks 
ahead, "ticking" the following words until 
IS : is found. Code between IS : and ; is 
compiled, and the address of this code and 
the addresses of each word in the sequence 
are added to the rules database. (The words 
LIT and L> will be explained in the next 
section.) 

The data structure built when rules are 
compiled is shown in Figure Three. (In 
Figure Three, assume that the rules given in 
Figure Two-b have been defined.) The 
structure is shaped like a set of trees. Each 
tree's root is the common first word to a set 
of sequences. At each node of the tree is 
stored a pointer to the code that will be 
executed if the sequence ends at that node. 
A null pointer indicates that the sequence 
cannot be optimized at this point 

The link between the top two nodes 
indicates the list of nodes searched when a 
word is compiled onto an empty sequence 
list. Only rules beginning with A or x have 
been defined. If either of these words is 
compiled, the search begins with the node 
list underneath the top-level node when the 
next word is compiled. If a word is com- 
piled that does not exist in the node list 
currendy pointed to, the backtracking algo- 
rithm occurs as described above. 

Note that nodes are shared by more than 
one rule. This makes it possible to discover 
and compile partial optimizations. 

Optimizing Literals 

Many of the optimization rules involve 



Figure One. Optimization process using fictional Forth words and sequences described 
in the text. 



Sequence list 



B 



B 



B 



X 



X 



Description 

A is compiled. No code is generated at this 
point, as the sequence ABC could yet occur. 
An entry for A is put in the sequence list 

B is compiled and remembered in the list 

x is compiled. The sequence A B C did not 
occur, so the list is reduced. A partial optimiz- 
ation can be made: A is in-lined. 

B is recompiled, but it does not start a sequence, 
so it is compiled using the default compilation 
rule. 

X is recompiled. It starts the sequence X Y, so it 
remains in the list 

Y is compiled. It ends the sequence X Y, so the 
optimized code is laid down and the list is 
flushed. 



Figure Two-a. Translating common Forth sequences into 68000 code. 



SEQ 


SWAP DROP 


IS: 


sp@+ sp@ mov ; 




SEQ 


DUP >R 


IS: 


sp@ rp@- mov ; 




SEQ 


LIT e 


IS: 


L> :1 sp@- mov ; 




SEQ 


LIT + 


IS: 


L> #1 sp@ add ; 




Figure Two-b. Optimizing the fictional Forth words used in Figure Three. 


SEQ 


ABC 


IS: 


( code to optimize A B 


C ) ; 


SEQ 


A 


IS: 


( code to in-line A ) , 




SEQ 


X Y 


IS: 


{ code to optimize X Y 


) ; 


SEQ 


X Y Z 


IS: 


( code to optimize X Y 


Z ) » 


SEQ 


X A 


IS: 


( code to optimize X A 


) ; 



Figure Three. The data structure built when rules are compiled. 
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Figure Four. Common optimizations from the author's rules file. 



Stack optimizations 
SEQ 
SEQ 
SEQ 
SEQ 



SWAP DROP 
DROP LIT 
DUP >R 
R> DROP 



Fetch/store optimizations 
SEQ: LIT 
SEQ: LIT + 
SEQ: LIT LIT ! 



SEQ: LIT @ LIT ! 
SEQ: DUP LIT ! 

Math optimizations 



IS: sp@+ sp@ mov ; 

IS: L> #1 sp@ mov 

IS: sp@ rp@- mov ; 

IS: 4 #1 rp addq ; 



IS: L> :1 sp@- mov ; 
IS: L> #1 sp@ add ; 
IS: L> L> ?DUP IF 
#1 : 1 mov 
ELSE 

:1 clr 
THEN ; 
IS: L> L> :1 :1 mov 
IS: sp@ L> :1 mov ; 



SEQ 


LIT 


+ 


IS 


L> 


#1 


sp@ 


add 


SEQ 


LIT 




IS 


L> 


#1 


sp@ 


sub 


SEQ 


LIT 


OR 


IS 


L> 


#1 


sp@ 


or 


SEQ 


LIT 


AND 


IS 


L> 


#1 


sp@ 


and 


SEQ 


LIT 


XOR 


IS 


L> 


#1 


sp@ 


eor 



Branch optimizations 

SEQ: = ? BRANCH IS 

SEQ: <> ? BRANCH IS 

SEQ: < ? BRANCH IS 

SEQ: > 7BRANCH IS 

SEQ: <= ? BRANCH IS 

SEQ: >= ? BRANCH IS 

SEQ: LIT = ? BRANCH IS 

SEQ: LIT <> 7BRANCH IS 

SEQ: LIT < ? BRANCH IS 

SEQ: LIT > 7BRANCH IS 

SEQ: LIT <= ? BRANCH IS 

SEQ: LIT >= ? BRANCH IS 



sp@ + 
sp@ + 
sp@ + 
sp@ + 
sp@ + 
sp@+ 
L> #1 
L> #1 
L> #1 
L> #1 
L> #1 
L> #1 



sp@+ cmpm bne 
sp@+ cmpm beq 
sp@+ cmpm bge 
sp@+ cmpm ble 
sp@+ cmpm bgt 
sp@+ cmpm bit 
sp@+ cmpm bne 
sp@+ cmpm beq 
sp@+ cmpm bge 
sp@+ cmpm ble 
sp@+ cmpm bgt 
sp@ + cmpm bit 



(Number Input screens continued from page 13.) 

adjusted_cursctrl 

flags 1/20/90 ) 

\ flags is used to hold the current fill character, and high bits are used 
\ for other flags. 

case ascii « of ascii no~savefill no~# endcase 

case ascii 1 of no~lout endcase 

case ascii 2 - of no~2out endcase 

case ascii 7 - of ascii * no~savefill no~# endcase 

case ascii 8 - of ascii _ no~savefill no~# endcase 

case ascii 9 - of bl no~savefill no~# endcase 

case ascii $ - of dup $2000 and 0= if ascii $ no~savefill then no~# end- 
case 

case ascii , - of 3 pick if ascii , hold else no~fillout then 

>r no~bumpcurs 65535 and r> endcase 
case ascii . - if hold >r no~bumpcurs 65535 and r> endcase 

3 pick 3 and 0- if \ for unsigned numbers, all others are verbatim 
hold >r no-bumpcurs r> endcase 



"folding" a number or address into an in- 
struction as an absolute address of an 
immediate value. In Forth, there are three 
ways of describing a value: as a CON- 
STANT, as the address of a variable 
(words defined with CREATE fall into this 
category also), or as a value compiled in- 
line with literal. There really should 
be no distinction between these, as they all 
push a number to the stack when executed. 
In my Forth, CONSTANT and VARIABLE 
simply use the run-time code of 
literal, lit, to push the number or 
address to the stack. 

Rules that do use a literal value need 
this value when the rule' s code is executed. 
The literal value is remembered in another 
data structure, the literal stack, when it is 
compiled. When a word is added to the se- 
quence list, the depth of the literal stack is 
also remembered in the list When back- 
tracking takes place for partial optimiza- 
tions, the literal stack is restored to its state 
when the literal was initially compiled. 

The executable code associated with 
rules involving literals uses the word L> to 
pop the top value from the literal stack. The 
value was put there initially by L ITERAL, 
which is defined now as: 

: LITERAL ( n — ) 
>L COMPILE LIT 
IMMEDIATE 

L> must be called as many times as lit 
appears in the sequence. 

Recursive In-lining 

To remain compatible with regular 
Forth, it was necessary to add words such 
as 1+ and nip to the system. These words 
could be optimized internally, but it would 
be better to in-line them in the words they 
were compiled in. 

When short words like these are com- 
piled, the optimizer is temporarily dis- 
abled. Instead, each internal word is com- 
piled with the default rule. (In a subrou- 
tine-threaded Forth, the default rule is to 
compile a subroutine call to the word.) 
These words will never be called from 
compiled code, but only from the outer 
interpreter, so the lack of optimization 
does not really matter. A NOP instruction 
precedes the rest of the internal code. 

The NOP is a signal to the optimizer 
that when this word is compiled, the com- 
ponent words inside it should be compiled 
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instead. In effect, using subroutine calls 
only makes the word easily "decompil- 
able" by the optimizer. 

I use : : to signify that one of these 
special words is to be compiled. Thus, the 
following definitions appear in the source 
code to my system: 

: : NIP ( a \ b — b ) 
SWAP DROP ; 

: : 1+ ( n — n+1 ) 
1 + ; 



When nip is compiled inside another 
word, swap and drop are compiled in- 
stead. 

The benefit of this approach is that 
partial sequences can be coded in a : : 
word for clarity, and then combined with 
the rest of the sequence in later code. For 
example, using the rules described for Fig- 
ure Two, we could write: 

: : AB 
A B ; 

( this is the first part of A B C ) 

: AWORD 

DUP AB C DROP ; 

When aword is compiled, AB will be 
expanded to compile A and B individually. 
The sequence ABC will complete when C 
is compiled next 

Previously I mentioned that variables, 
constants, and literals really do the same 
thing. In fact, VARIABLE compiles a : : 
word with the literal value of the variable's 
address inside, and constant compiles a 
: : word with the literal value of the con- 
stant inside. Thus, every constant and every 
variable defined will be optimized by one 
of the rules involving lit. 

Implementation Observations 

The major difficulties I encountered in 
porting old code to the new optimizing 
Forth resulted from implementation-spe- 
cific code. For example, some code 
changed the value of a CONSTANT by alter- 
ing the parameter field of the word. This is 
a dubious practice to begin with, and failed 
miserably when the value of the constant 
was in-lined everywhere it was used. An- 
other problem was the use of ] and [ to 
create a jump table: 



case ascii - = 

of over2 2 and if ascii - else bl then hold >r no~bumpcurs r> endcase 
case ascii + - 

of over2 2 and if ascii - else ascii + then hold >r no~bumpcurs r> endcase 
case ascii ( - 

of over2 2 and if ascii ( else bl then hold >r no~bumpcurs r> endcase 
case ascii ) - 

of over2 2 and if ascii ) else bl then hold >r no~bumpcurs r> endcase 
case ascii 3 = 

of over2 2 and if ascii C ascii R else bl bl then no~out2 endcase 
case ascii 4 - 

of over2 2 and if ascii D ascii B else ascii C ascii R then no~out2 endcase 
case ascii 5 = 

of over2 2 and if ascii C ascii R else ascii D ascii B then no~out2 endcase 
case ascii 6 - of no~6out endcase 

\ all others are always verbatim 
hold >r no~bumpcurs r> ; 

: no~formatter ( value 
position 
sign 

formatstring 

cursorbksp 

outptr 

outlen 
cursorctrl 1/20/90 ) 

rot 

\ calculate the initial cursor positioning control 
swap begin dup while base @ / swap 1+ swap repeat drop 8 « 
\ add flags for no~dispchar to use, setup loop indices 
swap swap ( v s cc fl fs - ) <# count range swap 1- do 

i c@ ( v s cc fl char - ) no~dispchar \ process each character 
-1 +loop drop -rot drop #> over2 65535 and over 8 « + ; 

: no~coverup (new_width old_cursorctrl — 1/20/90 ) 
8 » swap - dup 0> if dup spaces for 8 emit next else drop then ; 

: no~displayer ( value 
position 
sign 

format string 
coverwidth 

cursorctrl 1/20/90 ) 
>r no~formatter r> swap 2>r dup>r type 2r> no~coverup no~dispcurs r> ; 

\ format numeric output via format strings 
: numformat ( value 
sign 

formatstring 
number_base 

outptr 

outlen 1/20/90 ) 

base @ >r 36 min base ! -rot no~formatter drop rot drop r> base ! ; 



: numoutput ( value sign formatstring number_bas — 
numformat type ; 

\ print numeric output via format strings 
: numprint ( value sign formatstring number_base — 
numformat typep ; 

: ni~istermkey ( key — flag 1/20/90 ) 
dup 13 = over 9 = or swap bl = or ; 



1/20/90 ) 



1/20/90 ) 



: ni~outadj ( cursorctrl — 
dup 255 and dup 1 > if 

1- for bl emit next 
else 

drop 
then 

8 » for 8 emit next ; 



1/20/90 ) 



(Continued on next page.) 



Volume XII, Number 2 



17 



Forth Dimensions 



: ni~doinput ( initial_value 
position 
signed? 
output_width 
format string 
first_key 

final_value 
position 
sign 

output_width 
formatstring 

termjcey 1/20/90 ) 

swap >r swap >r 
begin 

ni~keyadj \ see if we can process this key 
?dup if \ key not consumed 

dup ni~istermkey if ( fv p s tk - fs ow - ) 2r> rot exit then 

drop beep \ indicate error 
then 

3dup r@ ni~outadj 
r> r@ swap no~displayer >r 
key 127 and 
again ; 

\ adjust for additional digit 
: ni~adjdigit ( pos 
♦digits 
$6flag 

adjustedjoos 
adjusted_#digits 

$6flag 1/20/90 ) 
2>r us>d base @ um/mod swapdrop r> 1+ r> ; 

: ni~isnumeric ( morepos 
♦digits 
intf lag 
char 

adjusted_morepos 

adjusted_#digits 

adjusted_intflag 1/13/90 ) 
case ascii $ - of dup $40 and if ni~adjdigit else $40 or then endcase 
case ascii 6 = 

of dup $80 and if dup $20 and if ni~adjdigit else $20 or then then endcase 
case ascii 7 - ascii 8 =or ascii 9 =or ascii =or 

of ni~adjdigit endcase 
case ascii 1 - ascii 2 -or of >r 2drop dup r> endcase ( use machine limit ) 
drop ; 

\ count number of digits permitted in the formatstring, and if that would be 
\ the limiting factor on number range, return the number of digits. Oth- 
erwise, 

\ return to use the maximum natural machine range as the limit. 

: ni~countdigits ( sign formatstring — number_digits | 1/20/90 ) 
>r 3 and dup>r ni~max r> if $80 else then ( indicate signed-ness ) 
r> count range do i c6 ni~isnumeric loop 

( adjust stack, noticing if the digit count exceeds the natural machine 
limit, 

and if so, substituting to indicate the natural machine limit for the 
digit count. ) 
drop swap 0= if drop then ; 

\ obtain numeric input 

\ flags bits are: bit 0=0, let user edit default value, 

\ =1, user accepts default, or replaces with new 

value 



numinput 



( initial_value 
signed? 
format st ring 
flags 



CREATE JUMPER 

] ACTION0 ACTION1 ACTI0N2 [ 
... JUMPER + @ EXECUTE ... 

A more portable version that the op- 
timizer wouldn't touch is: 

CREATE JUMPER 
* ACTIONO , 
, ACTION1 , 
' ACTION2 , 

The other problems I encountered re- 
sulted from using a subroutine-threaded 
Forth. For example, as commonly defined, 
COMPILE cannot be written on these sys- 
tems. The usual solution is to make COM- 
PILE immediate. 

What is really needed is a word analo- 
gous to execute. It would accept the 
ticked address of a word and compile it I 
wrote a word called (compile) that 
works this way. On most systems, (COM- 
PILE) would simply comma the address 
into the dictionary. On my system, (COM- 
PILE) invokes the optimizer. In Forth, we 
have some portable words for writing 
compiler words such as <MARK and < RE- 
SOLVE. We just need to complete the set 

To get a better idea of some of the 
common optimizations that can be done, a 
small portion of my rules file is shown in 
Figure Four. 

Conclusions 

Forth need not be a slow language. An 
optimizing Forth compiler can be written 
without requiring a great deal of effort. 
Granted, my optimizer still doesn't com- 
pare equally to an optimizing C compiler, 
but it's fairly close and it didn't require 
several man-years to write. 

On the 68000 CPU, subroutine- 
threaded Forth executed about twice as fast 
as indirect-threaded Forth. With the op- 
timizer added to the compiler, the code ran 
about three times as fast as indirect- 
threaded Forth. Thus, the optimizer added a 
50% improvement to the execution speed 
of the programs I compiled for comparison 
purposes. 

Benchmarks and timing tests should al- 
ways be taken with a grain of salt, but 
coding a bubble sort algorithm in Forth, C, 
and 68000 assembly language yielded the 
following results (in seconds): 
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indirect-threaded Forth 97 

subroutine-threaded Forth 48 
subroutine-threaded Forth 

with optimizer 27 

C 15 
hand-tuned 68000 

assembly language 07 

The time to execute the C function reflects 
the register nature of the language and the 
speed of register-addressing modes on the 
68000. Using registers to represent the top 
stack items in Forth would be an interesting 
experiment. 

I have just begun to experiment with 
other optimization techniques. Compile- 
time arithmetic (e.g., var 4+) and other 
kinds of "expression folding" would be 
another effective addition to the Forth 
compiler. What makes this kind of experi- 
mentation easy is the extensibility and in- 
teractive nature of the Forth language. 



Reprinted from the FORML Pro- 
ceedings 1989. Andrew Scott has 
been programming in Forth since he 
received hisB.Sc. in Computer Engi- 
neering from the University of Al- 
berta in 1986. He works for 
IDACOM Electronics Ltd., where he 
is using Forth to develop a language 
to describe components of ISDN 
protocols. 
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number_base 

final_value 

termkey 1/20/90 ) 

base @ >r 36 min base ! 2>r 1 swap ( i_v pos s? - onb fl fs - ) 

3 and dup r@ ni~countdigits 4* + \ adjust sign flag to contain max # digits 
3dup r@ no~displayer 2r> key 127 and ( i_v pos s?ow fs fl key -onb - ) 
dup ni~istermkey 
0- if 

\ not terminator key 

swap if 2>r 2>r >r drop r> abs 2r> 2r> then \ default not used - set 
to zero 

ni~doinput \ process the input 
else 

swapdrop 
then 

( i_v pos s? ow fs key - onb - ) 

2>r 2>r drop dup r@ 2 and if negate swap then \ save result with correct 
sign 

2r> ni~outadj r> no~displayer drop ( i_v - onb key - ) 
2r> base ! ; 

: test ( num sign pic zflag base — 1/20/90 ) 

2 selcur \ turn text cursor on 
numinput 

selcur \ turn text cursor off 
ascii ! bkemit 

cr " Termination char:" count bktype h. vx Final value:" count bktype 

\ test leading zeros, 5 digit limit, 2 minus signs 
: tl ( — 1/20/90 ) 
37 1 " -00000-" 10 test ; 

\ test leading spaces, 6 digit limit 
: t2 ( — 1/20/90 ) 
798 1 " -999999-" 10 test ; 

\ test all the different sign indicators, even the leading and 
\ comma suppression 
: t3 ( — 1/20/90 ) 
144 -1 " - + 3 4 5 (6,660.00)" 10 test ; 

\ test leading 
: t4 ( — 1/20/90 ) 
179 1 « $$$,$$0.00 4" 10 test ; 

\ test leading "*" 
: t5 ( — 1/20/90 ) 

3 1" $77,770.00-" 10 test ; 

\ test leading 
: t6 ( — 1/20/90 ) 
43 1 " $88,880.00 5" 10 test ; 

\ test variable width field 
: t7 ( — 1/20/90 ) 
77 1 " -$1" 10 test ; 

\ test variable width field with embedded commas 
: t8 ( — 1/20/90 ) 
88 1 " -$2" 10 test ; 

\ this case looks like money input 
: t9 ( — 1/20/90 ) 
99 ,v -$2.00" 10 test ; 

\ this case tests variable width field in combination with other digit types 
\ also tests unsigned numbers 
: tlO ( — 1/20/90 ) 
111 " 4 $290" 10 test ; 

\ the digits don't have to be adjacent, and cursor still tracks correctly 
: til ( — 1/20/90 ) 
121 ,v 9 9 9 0" 10 test ; 

\ test a base other than decimal 
: tl2 ( — 1/20/90 ) 
131 1 w (2)" 1 36 test ; 
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Part One 

FORST: A 68000 

NATIVE-CODE FORTH 

JOHN REDMOND - SYDNEY, AUSTRALIA. 



T 

-Lhis three-part series of articles will 
describe a 32-bit Forth based on the TOS 
operating system of the Atari ST. TOS 
(Tramiel Operating System) is pretty much 
a 68000 clone of MS-DOS. The calls have 
the same numbers and functions, but differ 
in that the parameters are passed on the 
stack rather than in registers. The directory 
structure is identical to that of MS-DOS, 
and data files are completely portable on 
3.5" disks. 

The ForST source code is in several 
function files, which are referenced by a 
single top-level load file. Depending on 
user requirements, some of the files can be 
removed, along with the corresponding 
header entries. In this way, the size of the 
ForST system can be controlled. Cultural 
aspects like vocabularies and a screen edi- 
tor are not included in the system at present, 
but can be added later. 

While the system has a number of non- 
standard characteristics, attention has been 
given to its compatibility with existing 
source code. With some small qualifica- 
tions about the header structure, and state- 
smart variables and constants, it is close to 
100% compatible. 

I've tried to take note of (perceived) 
limitations of the traditional Forth disc I/O 
and to incorporate some of the better fea- 
tures of other languages and other operat- 
ing environments; so I've incorporated the 
use of multiple files and redirectable buff- 
ered I/O. ForST carries out all its I/O by 
BIOS calls to the TOS firmware. 

System Characteristics 

a. Extended (32-bit) addressing 
The 68000 CPU has the advantage of a 16 
Mbyte flat address space, all of which can 
be accessed without the intricacies of seg- 
ment registers. To take advantage of the 
addressing range, however, it is necessary 
to have full 32-bit addressing (24-bit, re- 



ally). Code and data size are limited only by 
the available memory. 

b. Position-independent code 

TOS, and probably all future operating 
systems, makes up its own mind about 
where a program is to be loaded; so it is also 
necessary to have a Forth written in posi- 
tion-independent code. 

c. 32-bit stack width 

If the Forth is to handle 32-bit addresses, it 
is appropriate to have a 32-bit width for all 
stack entries. This has the advantage of 
giving integers a much more useful range, 
and of making them the same size as IEEE 
short reals. 



It is important to have 
loops with the correct 
behavior. 



d. Subroutine-threaded code 

This provides greater execution speed, 
removes the distinction between code and 
high-level words, and allows code optimi- 
zation. 

e. Macro definitions with edge optimiza- 
tion 

Each word available for in-line expansion 
has an associated code flag and length 
marker to direct expansion and optimiza- 
tion. 

/. Separated headers, with selective saving 
and deletion 

At present, the headers are in a simple, 
unlinked list from which they can be selec- 
tively retained or removed (regardless of 
code type). 



g. Good execution speed 

1 00 iterations of the Sieve in 59 seconds, or 

165 seconds without macro expansion. 

How Wide? 

The problem of word size has been 
discussed in detail [Bra87]. I support the 
view that the natural, default fetch-and- 
store words (@ and ! ) should universally 
apply to movements corresponding to the 
stack width. We are now nibbling at 32 bits, 
but what in the future? When we get to 64 
bits (and we will), @ and ! should apply to 
64-bit operations. Provided that we get into 
the habit of using the natural words for the 
default data size, code will always be port- 
able upwards. 

Of course, there will always be a need to 
access smaller units, such as with C@ and 
C ! , and now we need w@ and w ! to cope 
with specialized applications which de- 
mand the 16-bit width (such as the GEM 
interface). This has been my approach with 
ForST. Variables, constants, and addresses 
are all 32 bit, and we use @ and ! with 
them — as always in the past. 

The need for fetching and storing 
doubles may all but disappear as the default 
size increases, but 2DUP and its related 
stack words will certainly stay because of 
their use with pairs of values. 

The Headers 

ForST has been designed with separate, 
dispensible, headers. The headers of any 
Forth system allow the outer interpreter to 
locate code and to either compile or execute 
it As a program becomes developed and 
low-level words become incorporated into 
definitions of more complex words, their 
headers become superfluous. They take up 
memory, they may conflict with access to 
words with identical names, and they slow 
down dictionary searches. What is needed 
is a means of selective retention of only 
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those headers which need to be accessed 
later, and a means of disposing of the others. 
This concept has been discussed before 
[Joh87] , but there were difficulties in imple- 
menting it in the F83 environment, espe- 
cially with respect to DOES>. 

The header structure has been chosen as 
optimal for copying from one part of mem- 
ory to another. The traditional arrangement 
has the headers dispersed through the code 
and connected as a linked list. The linking is 
necessary because of the varying amount of 
code between headers. ForST, on the other 
hand, keeps its headers abutted together in 
their own buffer, there (cf. here) returns 
the address of the first free byte after the last 
of the headers. 

There are four fields in a header (in 
order): name field, flag field, code field, and 
parameter field. The flag field holds the 
word length (less the final RTS) and the 
edge marker, and is used by the compiler to 
direct macro expansions. The latter two 
fields (four bytes each) have address offsets 
(see below), and the name field will be of 
varying length and padded, if necessary, to 
an even number of bytes. As usual, the first 
and last bytes have bit seven set to allow 
TRAVERSE to find its way. 

Header Structure 

nfa: length+$80, 'name' , (+ pad byte?) 
ffa: length (=bytes/2), macro flag 
cfa: offset address of code 
pfa: offset address of data or code 

(FIND) works its way back from there 
by executing code equivalent to 
13 - -1 TRAVERSE 

until it finds a match or runs against a base 
address, rather than the zero pointer of other 
systems. 

A consequence of the header structure is 
that there is no special relationship between 
headers. Any of them can be located, its 
length calculated from the name length, and 
copied to another part of memory. The main 
header list can then be truncated at any point 
and the reserved headers copied back to the 
new position given by there. 

A minor result of the header structure is 
that searches are a little slower than with 
optimal linked headers with the link field 
before the name field (but it is still pretty 
fast), but selectively discarding headers 
compensates for this. A more important 
consequence is that there is presently no 
system of vocabularies. Whether or not this 



is a critical disadvantage depends on per- 
spective. To date, mine has been on devel- 
opment of application code rather than a 
total environment, and for that the module 
approach is better. Moreover, once the sys- 
tem is up and going, the heads can be reor- 
ganized into any number of linked lists, or 
any other sort of data structure. Then, 
because find is DEFERed, it can be redi- 
rected to search the new data structure. 

Creating Modules and 
TOS-executable Applications 

Disposable heads lead to the concept of 
a program module. After definition of a 
module, a small group of words will be 
chosen as PUBLIC by saving their headers, 
while the rest will implicidy be local and 
have their headers discarded. This is in the 
best tradition of information-hiding. 

To implement this concept, ForST uses 
the dummy words PROGRAM and module. 
As illustrated, as each module is completed, 
only some of its words remain accessible — 
and when the program is completed, only 
selected headers are kept. 

: PROGRAM ; 

: MODULE ; 
VARIABLE FIRST 
CONSTANT TRUE, etc. 

-. DEF1 ; 

: DEF2 ; 

: DEFN ; 
FROM MODULE 
KEEP TRUE 
KEEP DEFN 
PUBLIC 

(only TRUE and DEFN are made public) 

: MODULE ; 

(list of definitions again) 

FROM MODULE 

KEEP ... 

KEEP ... (etc.) 

PUBLIC 

: MODULE ; 

(this might be the final module) 
(several definitions again) 

FROM MODULE 
KEEP ... 

public (optional at end) 

FROM PROGRAM 
KEEP ... 
PUBLIC 



(this might be a single word from the whole 
program) 

It follows that, even if a very large program 
is compiled into the basic ForST, it will 
have almost no effect on the speed of dic- 
tionary searches. Furthermore, almost all 
Forth system words can be made local (and 
therefore inaccessible) by the global 

KEEP". 

FROM START 

keep <application_name> 

PUBLIC 

From this point, only the application 
and the two words save and SYSTEM are 
available to the user. SAVE allows us to 
save to the disk a standalone application, 
and system allows us to get back to the 
GEM benchtop: 

SAVE A:\PATH\APPNAME.TOS 
SYSTEM 

There are some finer points to specify- 
ing how much work and header space the 
application will need, and whether an auto- 
exec is required on reloading but, other- 
wise, it is just that simple to generate a 
machine-code application. 

How to Optimize Optimally 

When primitive words such as DUP and 
+ are used intensively in code, much of the 
execution time is taken up with pushes to 
and pops from the parameter stack. Con- 
sider the high-level definition of 2 *: 
: 2* DUP + ; 

Ignoring the overhead of subroutine calls 
and returns, the active code will be some- 
thing like the steps below. If dup and + are 
expanded as macro primitives, steps three 
and four are brought into sequence. It now 
becomes clear that they are very ineffi- 
cient. They are expensive in terms of clock 
cycles, and it is the task of the edge op- 
timizer to recognize and remove them. 

(call dup) 

1. push the top stack value onto the stack 
(return and call +), 

2. pop the (same) value to a register, 

3. add the (now) top stack value to it, 

4. push the (result) value to the stack, 
(return) 

To make the example specific to the 68000 
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Figure One-a. 

(DUP) 

1. MOVE.L (A6),-(A6) 

2. MOVE. L <A6)+,D0 

3. ADD.L (A6)+,D0 

4. MOVE. L D0,-(A6) 

Total: 58 cycles/8 bytes 



Figure One-b. 

(DUP) 

1. MOVE.L (A6),D0 

2. ADD.L (A6)+,D0 

3. MOVE. L D0,-(A6) 

Total: 38 cycles/6 bytes 



[Cha87], the steps correspond to those in 
Figure One-a. If the steps are part of sub- 
routine calls, a minimum of a further 68 
clock cycles would be required ( 1 26 cycles 
total), but the size would still be eight bytes. 

One of the real advantages of the 68000 
is the orderly set of addressing modes for 
moves. There are no specific push or pop 
instructions, although the hardware stack is 
addressed by register A7. ForST uses A6 as 
the data-stack pointer. Therefore, a push of 
register DO to the data stack will be coded: 

MOVE.L D0,-(A6) 

and a pop from the return stack is: 

MOVE.L (A7)+,D0 

It is nevertheless more concise and descrip- 
tive to refer to the processes of pushing and 
popping, so I will use this terminology. 

Moves to and from memory, and the 
eight data registers and eight address regis- 
ters, have very similar opcodes. This sim- 
plifies the operation of an edge optimizer, 
which balances and redirects moves. Opti- 
mization of the preceding code is shown in 
Figure One-b. The DUP memory-to-mem- 



(20/2) (+) 

(12/2) 

(14/2) 

(12/2) 



(12/2) (+) 

(14/2) 

(12/2) 



ory move and the following pop are con- 
verted into the more efficient memory-to- 
register move. The speed optimization is 
significant, even with this short fragment of 
code, and the size is now smaller than for 
two subroutine calls. Furthermore, thecode 
has a trailing push, which provides scope 
for further optimization when incorporated 
into a larger definition. 

To reinforce this point, consider the use 
of our new 2 * as a macro in the following 
code segment: 
... I 2* + ... 

In the expanded code shown in Figure One- 
c, the edges removed or modified by the 
optimizer are marked to show that incorpo- 
ration of 2 * as a macro into a larger defini- 
tion allows exploitation of its edge. 

The outcome is code which is much 
faster than a simple macro expansion, and 
which still has an edge for further optimiza- 
tion. In non-trivial code, expansion/optimi- 
zation will typically give a speed improve- 
ment by a factor of 2.5-3 .0 over subroutine 
calls, with little change in code size. 



Control of Macro Expansion 

During compilation of many non-im- 
mediate words, we may have the option of 
compiling a call to the code of the word, or 
of doing a direct copy of its code into the 
word being compiled, provided it is not too 
long. We control this option by setting the 
macro compilation mode to false (with 
CALLS) or true (with MACROS). CALLS 
and macros are themselves immediate 
words and can be used for dynamic control 
of the compilation process within word 
definitions. 

Not all words are appropriate for macro 
expansion, however. Any code which has a 
branch to outer code will not be suitable and 
will have a false macro code flag. In this 
event, the compiler will test the flag and 
proceed to compile a call. If the macro edge 
marker is non-zero, the macro compilation 
mode is true, and the word length is not 
longer than the preselected maximum in the 
variable longest, the code will be ex- 
panded and the edge marker will be used to 
direct the optimization process. 

Implementing Edge Optimization 

There are two groups of edge markers: 
the push group and the negative group (-1 
and -2). Before expansion of a word with a 
push marker, a flag is tested to determine 
whether an expansion has just taken place. 
If so, the last two bytes of code (the end of 
the previous expansion) are tested. If they 
are identical to the marker, they are 
removed and the first two bytes of the 
present word are skipped. The result is four 
bytes less code and 24 clock cycles less 
execution time. If the two bytes do not 
match the marker, they will be tested more 
generally for a push opcode. If this proves 
true, it indicates that the instruction can be 
altered to give more efficient code. As an 
example: 

PUSH Dl 
POP DO 
Total: 4 bytes/24 cycles 

converts to: 

MOVE1 D1,D0 
Total: 2 bytes/6 cycles 

This is still a significant level of optimi- 
zation, and it illustrates the advantage of 
starting a macro primitive with a pop and 
ending it with a push. 

The simpler case of a negative edge 



Figure One-c. 



(I) 








1. 


MOVE . L 


D6,D0 


(4/2) 


2. 


ADD.L 


D7,D0 


(6/2) 


3. 


MOVE . L 


DO, - (A6) 


(12/2) 


4. 


MOVE.L 


(A6) ,-(A6) 


Remove (20/2) 


5. 


MOVE.L 


(A6) +,D0 


Remove (12/2) 


5a. 


MOVE . L 


(A6) ,D0 


New (12/2) 


6. 


ADD.L 


(A6) +,D0 


(14/2) 


7. 


MOVE . L 


DO, - (A6) 


Remove (12/2) 


8. 


MOVE . L 


(A6) +,D0 


Remove (12/2) 


9. 


ADD.L 


(A6)+,D0 


(14/2) 


10. 


MOVE . L 


DO, - (A6) 


(12/2) 



Total: 62(106) cycles/12(18) bytes 
Subroutines: 254 cycles/12 bytes 
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marker directs expansion of in-line code 
without optimization at the leading edge. A 
value of -1 is used by some system words, 
such as over which does not start with a 
POP, and -2 is generated in some special 
cases of user definitions. A user definition 
which consists solely of macro expansions 
(and which may include IF, BEGIN, etc.) 
will take on the macro flag of the first 
expanded word in its definition. Inclusion 
of one or more calls in the definition will 
zero the edge marker. 



Loops and Optimization 

Programmers who demand speed at any 
cost attach a great deal of importance to fast 
loops. It is very important, however, to 
have loops with the correct sort of behavior. 
The Forth-83 Standard loops have been 
problematic when the initial indices are 
identical, as they lead to a number circle ex- 
cursion rather than a quick termination. 
This might be acceptable for 16-bit loop 
indices, but 32 bits are another matter. It 
might take a lifetime to recover from an 
uncontrolled loop! To cope with this, 
ForST incorporates a test on entry to the 
loop. If the indices are equal, the loop is 
skipped entirely. The behavior is safe and 
reasonable (c/. ?do of F83) butdiffers from 
the Forth-79 Standard, which would have 
allowed one passage through the loop. This 
is my solution to a potentially dangerous 
problem, but I am aware that better ap- 
proaches may be in the wind. 

Because the 68000 has a good comple- 
ment of registers, it is possible to assign 
specific tasks to some of them . Code for DO 
... LOOP and +LOOP is very efficient be- 
cause registers D6 and D7 are reserved for 
the indices. To allow nesting of loops, reg- 
isters D6 and D7 are saved to a special loop 
stack by (DO) before entering the loop and 
are restored after leaving it. This means, of 
course, that >R and R> will have no effect 
on the progress of the loop, and that R@ and 
I will give different results. The 32-bit 
value in register D6 is incremented at the 
end of each iteration and the loop repeated 
if the overflow bit is clear. 

The loop code takes only six bytes and 
16 clock cycles, which is not much time at 
eight MHz. There is a single decrement- 
and-branch instruction (dbra) for the 
68000, which would take only four bytes 
and ten cycles, but it uses only a 16-bit 
value in the register (one of the handful of 



Figure Two. Forth source code for the Sieve. 



DECIMAL 
MACROS 

8190 CONSTANT SIZE 
CREATE FLAGS SIZE ALLOT 

: DO-PRIME FLAGS SIZE 1 FILL 
SIZE 
DO FLAGS I + C@ 

IF I DUP + 3 + DUP I + 
BEGIN DUP SIZE < 
WHILE OVER FLAGS + C! 
OVER + REPEAT 
DROP DROP 1+ 

THEN 
LOOP 

( . ." primes " adds 0.05 sec per loop) 
DROP 

: PRIMES DO DO-PRIME LOOP ; 



Figure Three. Annotated ForST object code for do-prime . 



_do-prime : lea 


flags, aO 




push 


aO 


;move.l a0,-(a6) 


move. 1 


#size, dO 




push 


dO 




bsr 


_fill 




; 

moveq 


#0,d0 




push 


dO 




move.l 


#size,d0 




push 


dO 




moveq 


#0,d0 




push 


dO 




bsr 


bloop 


/install loop indices 


beq 


lpescape 


;quit if indices equal 


lpstart : lea 


flags, aO 




push 


aO 




move.l 


d6,d0 




add.l 


d7,d0 


;i 


add.l 


(a6)+,d0 


;+ 


move. 1 


d0,a0 




moveq 


#0,d0 


; clear 32 bits 


move.b 


(aO) ,d0 


; fetch byte 


beq 


not set 




move. 1 


a6,d0 




add.l 


a7,d0 


;l 


push 


dO 




move.l 


(a6) ,d0 


;DOT> 


add.l 


(a6)+,d0 


;+ 


push 


dO 




moveq. 1 


#3,d0 




add.l 


(a6)+,d0 


;3 + 


push 


dO 




move.l 


(a6),-(a6) 


;DUP 


move. 1 


d6,d0 




add.l 


d7,d0 


;l 


add.l 


(a6)+,d0 


; + 


push 


dO 





(Figure continues on next page.) 
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begin: 



while: 



wend: 



not set : 



lpesc: 



move.l 

move.l 

crop. 1 

sgt 

ext.b 

ext.w 

beq 

moveq 

push 

move. 1 

push 

lea 

move.l 
add.l 
move.l 
pop 

move.b 

move.l 

add.l 

push 

bra 

pop 

pop 

pop 

addq.l 

push 

addq.l 

bvc 

bsr 
bsr 
bsr 



(a6),-(a6) 

#size,dO 

(a6)+,d0 

dO 

dO 

dO 

wend 

#0,d0 

dO 

4(a6) ,d0 
dO 

flags, aO 

aO,dO 

(a6)+,d0 

dO,aO 

dO 

dO, (aO) 
4(a6),d0 
(a6)+,d6 
dO 

begin 

dO 
dO 
dO 

#l,dO 
dO 

#l,d6 
lpstart 

bunloop 
_dot 
_dotq 
rts 



; 32-bit flag 
;0 

;OVER 
;+ 



o 

C! 

OVER 
+ 



;two DROPs 

/increase count 
;loop if no overflow 
;get outer loop indices 
; print string 



mistakes the 68000 designers made!). 

leave is implemented using another 
dedicated stack. The familiar linked list 
approach to marking addresses for forward 
branches is messy to use, as all addresses 
are offsets and all branches are relative. 

Branch Optimization 

The most basic elements of structured 
control are the words IF, ELSE, and THEN. 
For an indirect-threaded code interpreter, 
they are implemented by incorporating 
branch and ? BRANCH into the code. 
These are the Forth equivalents of BRA and 
BEQ microprocessor instructions and, in- 
evitably, are much slower. BRANCH, 
7BRANCH, and the associated compilation 
words are available in ForST but, when 
invoked, they carry out direct compilation 
of BRA and BEQ instructions. As a result, 
the branching code is as efficient as that 
from any compiler. Structure checks are 
made during compilation of the structures 
by using marker values on the stack. 

Similarly, BEGIN ... UNTIL and BE- 
GIN ... while ... repeat compile di- 
rectly to patterns of single CPU instruc- 
tions. Because all branching is by means of 
machine instructions and all destinations 
are within the code of a single word, the 
code macro flag of the definition is not 
affected and the word can, if it is shorter 
than the maximum length in the variable 
LONGEST, be expanded as in-line code 
when it is used in higher-level definitions. 

Benchmarking ForST 

An illustration of real code will demon- 
strate much of the previous discussion. The 
Sieve of Eratosthenes is a common and 
rather overworked compiler benchmark. In 
the past, it has been used to demonstrate 
that Forth is very inefficient by comparison 
to C. The Forth source code (often seen in 
these pages) is shown in Figure Two and 
the annotated ForST object code for DO- 
prime in Figure Three. This has resulted 
from compilation with macros and is, in 
fact, slightly smaller than the code with 
CALLS. 

If this example does nothing else, it 
demonstrates the compactness and legibil- 
ity of Forth compared to assembly! A close 
examination in the light of code for the 
primitives will suggest where edge optimi- 
zation has taken place, and where code 
expansion has taken place without optimi- 
zation. The most time-critical code is in the 



BEGIN ... WHILE ... REPEAT construct, 

where most of the action takes place and 
where every instruction really counts (it is 
traversed 14996 times to find the 1899 
primes). The unconnected dup at the start, 
the sign extension of the Boolean flag to 32 
bits, the lack of a compare-immediate in- 
struction, and the absence of direct-address 
arithmetic for pointers have added to exe- 
cution time. More generally, the policy 
decision of using a 32-bit stack for all val- 
ues has added 50% to all moves. I still 
believe the approach is correct, as it elimi- 
nates an important source of error at the 
source code level. 

Nevertheless, 100 iterations of the sieve 
take only 59 seconds. Code from my Laser 
C compiler takes 41.7 seconds with 16-bit 
integers and 51.7 seconds when they are 
expanded to 32 bits. The code from ForST 
and the C compiler must be judged fairly 
equivalent in speed and quality. Intel en- 
thusiasts will point to faster times for 80286 
systems, but they should remember that 
they are using a narrow stack and the small 
memory model. They should recompile for 



long integers and the huge model, and 
compare again. Further to this point, the 
68000 is near the bottom of the MC680X0 
range and the ForST code will execute 
much, much faster on 68030 systems. The 
thought that code I am writing now will be 
usable in the computers of ten years hence 
is very appealing. 

Finally, to confuse comparisons fur- 
ther, consider the following (useless) code, 
which is designed to test both the speed of 
looping and the time for subroutine calls. 

DECIMAL CALLS 

: NOOP ; 
: RAWSPEED 

5000000 DO 

NOOP LOOP ; 
( 36 seconds) 

Compiled with calls (to force a sub- 
routine call to NOOP), itruns in 36 seconds. 
The corresponding code from Laser C takes 
1 10 seconds, indicating a little of the very 

(Continued on page 40.) 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE ! ! ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faster than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 functions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently than in the source! 

• Use an architecture that supports 
small programs or full megabyte 
ones with a single version! 

• Forget chaotic syntax requirements! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with POOPS - The 
only flexible full multiple 
inheritance object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend 
all tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP ! ! ! 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple 
tools expected in any commercial 
language. 

HS/FORTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Useful in learning Forth's basics, 
they fail to show its true potential. 
Not to mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the 
ideas that you now see sprouting up 
in other Forths. We won't throw in 
the towel, but the drain on resources 
delays the introduction of even better 
tools. Don't kid yourself, you are not 
just another drop in the bucket, your 
personal decision really does matter. 
In return, well provide you with the 
best tools money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to 
fossilized compilers. You are at the 
mercy of that language's vendor. You 
can easily add features from other 
languages to HS/FORTH. And using 
our automatic optimizer or learning a 
very little bit of assembly language 
makes your addition zip along as well 
as in the parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a 
few hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from ROM. Each level 
includes all features of lower ones. Level 
upgrades: $25. plus price difference 
between levels. Sources code is in 
ordinary ASCII text files. 

All HS/FORTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization — which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

STUDENT LEVEL $145. 

text & scaled/clipped graphics in bit blit 
windows,mono,cga,ega,vga, fast ellipses, 
splines, bezier curves, arcs, fills, turtles; 
powerful parsing, formatting, file and 
device I/O; shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 lines per minute, stacks; 
file search paths; formats into strings. 

PERSONAL LEVEL $245. 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vars: A B * IS C compiles to 4 
words, 1..4 dimension var arrays; 
automatic optimizer-machine code speed. 

PROFESSIONAL LEVEL $395. 
hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $495. 
Metacompiler: DOS/ROM/direct/indirect; 
threaded systems start at 200 bytes, 
Forth cores at 2 kbytes; C data 
structures & struct+ compiler; 
TurboWindow-C MetaGraphics library, 
200 graphic/window functions, PostScript 
style line attributes & fonts, viewports. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 75. 
286FORTH or 386FORTH $295. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 

BTRIEVE for HS/FORTH (Novell) $199. 

ROMULUS HS/FORTH from ROM$ 95. 

FFORTRAN translator/mathpak $ 75. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 
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DICTIONARY STRUCTURES 

& FORTH 

WU QIAN - BEIJING, CHINA 



-Loth has its own unique structure. 
One dictionary, a pair of stacks, and a dic- 
tionary-management system (DMS) com- 
prise Forth. The dictionary includes all the 
functions of a Forth system so, along with 
the DMS, it forms Form's framework. 

Dictionary Structure System 

The design of an operating system — 
even a single-user, single-task system — is 
a very complex task. Anyone who has 
designed a Forth system will deeply appre- 
ciate that it is much the same— though 
simpler, smaller, more flexible, and more 
effective than a generalized OS — but re- 
quires a shorter lead time to develop. Why? 

The early designers of operating sys- 
tems adopted the modular method, result- 
ing in a modular-structure OS . The method 
is: 

• divide a large-scale system design into 
small, independent, functional modules 
and stipulate the interfaces between the 
modules; 

• implement the modules individually; then 

• link the modules, according to their vari- 
ous interfaces, to form a complete sys- 
tem. 

The main advantages of this modular ap- 
proach are faster design, improved flexibil- 
ity, and efficiency. Unix is a typical ex- 
ample of the method. The disadvantages 
include the difficulty of accurately parsing 
functions into modules and defining their 
interfaces in advance, and a lack of orderly 
call sequences reduces the relative inde- 
pendence of modules. 

In order to improve on this method, a 
system of ordered calls is used. We may 
begin with a bare machine A which has no 
software; install a layer of software to ex- 
pand the functions to form the virtual 



machine Al , which has better performance; 
then add another virtual machine A2, etc., 
until we arrive at the desired virtual 
machine An. The operating system de- 
signed with this method is divided into 
layers, each composed of modules, which 
have one-way relations. This is called a 
hierarchical operating system. Its design 
corrects the random call to the ordered call, 
which enhances design correctness and 
shortens development time. The lower layer 
can be designed and tested before the upper 
[or outer] layer, reducing the complexity of 
each programming task. Moreover, mis- 
takes can be made later in the upper layer 
and subsequently corrected without break- 
ing the lower layer's code, making mainte- 
nance much easier. 



The development of 
Forth has just begun. 



An operating system is the set of pro- 
grams that controls and manages computer 
hardware and software resources, organizes 
the work flow, and generally makes things 
more convenient for the user. In fact, to 
design an operating system is to decide what 
method and structure should be used to 
organize this set of programs effectively. 
Resource management should also be 
handled by the operating system; from the 
user's point of view, this manages the pro- 
grams that manage the hardware and non- 
system software resources. So a good oper- 
ating system design should include not only 
the functions it is to realize but also, and 
more important, the management-control 
mechanics of the OS that make up its frame. 

Neither modular nor hierarchical sys- 
tems regard system programs as a resource 



to be managed in a fixed way. Modular 
systems don't manage the system pro- 
grams at all — modules connect haphaz- 
ardly, related merely as the caller and the 
called, resulting in unreliability and in long 
development and maintenance cycles. Hi- 
erarchical systems are more thoughtful, di- 
viding the system into layers and managing 
the modules within those layers, but this re- 
duces efficiency because of the forced divi- 
sion of similar resources and the relative 
isolation of the layers. 

How can one manage system programs 
wisely in terms of resources? System pro- 
grams are objects to be managed, and we 
can use tables to express their various re- 
sources. Their attributes differ because 
their functions differ, but each is an inde- 
pendent module. We can use one table to 
describe each module's name, hierarchical 
relationships, and other attributes. Mod- 
ules and module tables together form the 
resource base of the system programs — a 
dictionary, in Forth terminology. The tools 
used to work with the dictionary comprise 
the DMS. 

The dictionary is composed of modules 
and module tables, linked by a fixed data 
structure. Modules follow a strict calling 
order: modules in higher layers can only 
call modules in lower layers, a hierarchical 
relation included in the module tables. The 
DMS manages and controls the dictionary 
by providing operations to find a module, 
add a new module, remove a module, etc. 

This dictionary structure system (DSS) 
differs from the simpler modular and hier- 
archical systems. The design of a DSS 
should first determine the dictionary struc- 
ture and DMS. The designer can then use 
hierarchical methods to realize system 
functions that take full advantage of the 
system frame. 

Forth is a kind of simple DSS, whose 
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system frame is formed of a dictionary data 
structure, an interpreter, and a compiler. 
The words in the dictionary reflect the 
functions of the Forth system, and they 
follow a strict call order. Tables of words 
are linked by the fixed dictionary structure, 
and the interpreter and compiler provide 
management and control mechanics for the 
dictionary. 

DSS Advantages 

• shorter lead time, enhanced reliability 

DSS designers should first specify the 
system frame. The frame is like a system- 
construction tool and can improve the func- 
tional design. Modules can use hierarchical 
methods for reliability and ease of mainte- 
nance. 

• efficiency 

A DSS manages the system with a view 
to its resources, and removes the inter-layer 
communication barriers imposed by the 
hierarchical method. 

• flexibility 

In a hierarchical system, it is difficult to 
modify or extend the lower layers. The 
DSS , on the other hand, includes all the hi- 
erarchy in its tables and there are no physi- 
cal layers, so adding or reducing system 
functions is simply a matter of expanding 
or deleting modules from the dictionary. 

• system programming language 

DSS permits the DMS to be designed as 
an interpreter and compiler (e.g., the Unix 
shell), which in turn can offer a program- 
ming environment built upon the system 
instructions (e.g., Forth). 

• open-ended program base 

This aspect of DSS can be very impor- 
tant to software reuse and portability. 

The design of Forth systems reflects the 
advantages of DSS. Additionally, Forth 
uses reverse Polish notation (RPN) arith- 
metic, which is more easily handled by the 
computer; linear decoding, which can save 
memory; and irregular design. 

Forth as System Language 

The facts show that every language has 
its own application area, and Forth is the 
same. In the past, Forth has been used in 
process control and image processing, to 
name a couple, but I think Forth is well- 



suited to be a system language. 

First, it describes a system structure 
which is simple, effective, and reliable. It 
provides an interpreter and compiler which 
are not only dictionary management tools 
but also user-instruction processors. The 
dictionary is open and composed of piled- 
up modules; all of the words in it form the 
system language, i.e., the Forth language. 

Second, Forth balances the user inter- 
face with the machine interface. RPN and 
the irregular design method can make one 
feel it is difficult to master, but these very 
features make it easy to describe and imple- 
ment a system. 

To basic rule in Forth development is to 
retain its simple style. Some people enjoy 
its unique characteristics, while others re- 
ject it or try to make it into something like 
other high-level languages. My point is that 
if one is bound by his nature to be a painter, 
let him be a painter and not a singer, other- 
wise, a genius is going to be a mediocrity. 
Take Forth in your own direction, but fol- 
low its spirit for the best results. 

Forth can support all kinds of functions, 
but its user interface is not good. Why won ' t 
we take advantage of other high-level lan- 
guage interfaces to compensate for Form's 
defects, perhaps ending with Forth as a mid- 
level language? 



Forth Processors 

The introduction of Forth chips and 
their related Forth nucleus software con- 
vinces us of the potential advantage of such 
a system. In the past we saw machines that 
directly supported high-level languages, 
but design complexity, low efficiency, and 
limited applications brought failure. Ac- 
cording to past experience, it seems the 
same problems could be encountered if we 
try to make a machine that supports Forth. 

The chip we designed to supportForth is 
so simple, the gates so few, and the speed so 
fast that others chips cannot compare. 
Why? Forth itself — its style is quite differ- 
ent from that of other languages. It's not so 
much that Forth is a new kind of language, 
as that it is a kind of design thought and rule. 
As has been demonstrated, it is easy to 
support in hardware Form's fundamental 
functions, stack-based operations, and 
RISC techniques. Similarly, software de- 
sign is so simple, the system so flexible, and 
maintenance and performance so good, that 
other system structures cannot compare. 



Problems 

Integrated hardware and software de- 
sign based on Forth has just begun. There 
are still a lot of problems to be solved. For 
example, Forth's current dictionary struc- 
ture is limited and further study is needed 
to find the best solution; Forth's greatest 
weakness is its lack of protection, espe- 
cially of stacks; the frame is the key to a 
DSS, so a Forth chip should support not 
only basic functions and stack operations, 
but the DSS frame, operating system.even 
some kind of conversion from other lan- 
guages. I think both the hardware and soft- 
ware design of the new system should 
fully integrate current well-developed 
theory and technique. 

In general, the development of Forth 
has just begun. When necessary, it needs 
to be expanded and improved, but it would 
be unwise to belittle Forth. It is not easy to 
develop an adequate enough understand- 
ing of Forth to study, use, and further 
develop it, but if you can grasp Forth 
thought you will gain a new understanding 
of the language itself. 



Wu Qian has an M.S. in software engi- 
neering and fourth-generation lan- 
guages from the Software Institute of 
the Chinese Academy of Sciences, and 
his thesis noted Forth's differences 
from traditional OS structures. He is 
interested in software engineering, the 
structure of system software, artificial 
intelligence, and the human-computer 
interface. He is designing system soft- 
ware for a new kind of machine that 
supports Forth, and is trying to create 
an integrated Forth system on a Forth 
machine. 
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Xorth novices sometimes type: 
8 do i loop 

into their Forth systems and then wonder 
why 

01234567 ok 

doesn't appear. The easy answer is that 
Form only allows control structures to be 
used inside colon definitions. A more accu- 
rate answer is that Forth system implemen- 
tors feel that providing interactive control 
is too difficult. In this article, I will describe 
a relatively simple way for a Forth system 
to provide control structures that behave 
consistently, whether interpreted or com- 
piled. 

Interactive control structures have 
many uses. For example, they can initialize 
an array or table: 

create squares 
100 do 

i i * , 
loop 

Another use for interactive control 
structures is conditional compilation in a 
file-based system: 

Forth-79? 

if w Forth83-emulator" 
load-file then 

Forth-79?isa word that tests to see if a 
Forth-79 Standard system is present. If so, 
load- file loads a file named Forth83- 
emulator that contains a Forth-83 emulator 
written in Forth-79. 

At the 1987 FORML Conference, 
Mitch Bradley gave a paper appropriately 
titled "Interpreting Control Structures — 
The Right Way" [1]. His solution to making 
control structures interactive didn't allow 



compiling-words such as allot and , to 
be used within the control structures. For 
example, you couldn't initialize the 
squares table using the code above. He 
left this as "an exercise for the reader." I 
have taken up the challenge, and I provide 
a solution here. In the remainder of this 
article, I'll describe the problems found and 
faced in developing my solution. Source 
code is provided. 

Problems and Solutions 

The first problem in implementing 
interactive control is that the control struc- 
tures must be compiled before they can be 
executed. This is easy to handle: just switch 
to compile mode when the beginning of a 
control structure (do, begin, if, etc.) is 
encountered during interpretation. But how 



As you grow accus- 
tomed, they may 
become indispensable. 



do you know when to stop compiling and 
execute the compiled code? If the compiler 
is turned off as soon as an ending control 
structure (loop, until, then, etc.) is 
found, nested control structures will not 
work. We must keep track of the nesting 
level somehow. 

I use Forth's state variable to count 
the nesting level. A state value of zero 
indicates that the system is interpreting. 
Control structure words such as do, be- 
gin, or if increment state and words 
such as loop, repeat, and then 
decrement st ate. I have added two words 
to my system, named] ] and [ [ (analogous 
to] and Outperform thesefunctions.For 
example: 



: do 

] ] <do_code> 
; immediate 

: loop 
<loop_code> [ [ 
; immediate 

(Begin, repeat, until, if, and 
then are modified in a similar way.) If do 
is found while interpreting (state = 0), ] ] 
increments state and the system starts 
compiling (state = 1). If an if ... then 
structure appeared within the loop, if 
would increment the state to two and 
then would decrement it to one. When 
loop is found later, [ [ decrements the 
state back to zero and interpretation is 
resumed. [ [ detects this transition and 
executes the compiled code. 

The code within the control structure is 
transient and must be compiled into some 
temporary location. The obvious location 
is the end of the dictionary at here. The 
problem with this is that words such as 
allot and , couldn't be used with the 
control structures. For example, in the 
squares example, 'comma-ing' in the 
squared values would overwrite the do . . . 
loop code and almost certainly crash the 
system. A separate compile buffer would 
solve this problem. 

In an earlier article on local variables 
(FD Xljl), I described a way to add com- 
pile buffers to a Forth system. I changed the 
dictionary pointer variable dp (called h in 
some systems) into a colon definition to 
add a level of indirection. Since allot, 
here, and ultimately the entire compiler 
are defined in terms of dp, changing the 
value returned by dp can redirect the 
compiler to another region of memory. 

variable regionptr 
: dp 
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loop, then, etc. 
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do, if, etc. 

]] 



then, etc. 



state - 2 
compile in buffer 




do, if, etc. loop, then, etc. do, if, etc. *p loop, then, 

i" I" {" I" 



etc. 



regionptr @ ; 
\ ( — addr ) Return next free 
\ location in allocation 
\ region 

: allocatef rom 

regionptr ! ; 
\ ( addr — ) Select an 
\ allocation region 

New compile buffers are created by the 
following defining word: 

: region 

create here 

cell+ , allot ; 
\ ( size — ) Create 
\ allocation region 

The control structure compile buffer is 
created as: 

200 region compileregion 

Stdregion is the built-in standard 
dictionary allocation region. ] ] and [ [ 
automatically switch the compiler between 
compileregion and stdregion. 
The diagram in Figure One summarizes the 
states the Forth system can occupy. In the 
topmost state in the figure, the system is 
interpreting and dp refers to the end of the 
dictionary. Starting a colon definition sets 
the state to one, and control structures 
behave conventionally in the leftmost 
group of states. If ] ] is called via do, if, 
etc. while interpreting, the system enters 
the rightmost group of states and starts 
compiling into the compile buffer. Further 
control structures will nest properly. When 
the final loop, then, etc. calls [ [, it 
switches back to the standard allocation 
region, executes the code in the compile 
buffer, and resumes interpretation. 

The Code 

The source code is shown in the accom- 
panying listing. ] ] first checks to see if the 
system is interpreting (i.e., is this the 0-1 
state transition?). If it is, ] ] switches dp 
over to the compile buffer. Here, which 
now indicates the next free location in the 
buffer, is saved in a variable named com- 
pilebuf fer. Since the code in the 
compile buffer will later be passed to exe - 
cute, we need to create a code field in the 
buffer. The line labeled NON-PORTABLE 
does this in a system-dependent way. For 
example, in an indirect-threaded-code 



Figure One. System state diagram. 

system, start : might A (tic) a known 
colon definition and copy the code field: 

[ ' ] <known_colon_def> @ , 

In a subroutine-threaded system, 
start : would be a no-op. Finally, ] ] 
increments state. 



[ [ decrements state. If this brings 
the system to the interpret state, [ [ knows 
there must be something in the compile 
buffer to execute. An exit is added to the 
buffer, dp is switched back to the standard 
allocation region, the code pointed to by 
compilebuf f er is executed, and the 

(Continued on page 41.) 
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basic idea behind this metacom- 
piler is to use a host Forth in out-of-the-way 
memory to define a new, target Forth dia- 
lect in the normal memory area, using nor- 
mal Forth definitions. The addresses of the 
components of new colon definitions are 
taken from the target (when available), 
otherwise from the host (if possible). For 
components not defined in HOST and not 
yet defined in TARGET, a 0000 is compiled 
and announced. After one pass through all 
the target definitions, the target words all 
occupy the correct amount of space and are 
located at their final addresses. The tempo- 
rary host component addresses and 0000s 
are to be replaced by target addresses on a 
second pass through the set of definitions. 
Actually, each definition is completely 
overwritten, but with unchanged addresses 
where the first pass gave the desired final 
addresses. 

The major requirement for redefining 
with overwrite is maintaining the integrity 
of the links between target words, so that 
the target vocabulary can be searched prop- 
erly when compiling definitions. The first 
problem is having input-stream words 
overwrite link fields; this is avoided by not 
using the upcoming dictionary area for 
WORD input. A special area (STREAM) is 
used, and its content is transferred to the 
dictionary area when appropriate. 

The second problem involves new link- 
ages. The second defining pass starts with 
the dictionary pointer reset to the origin of 
the target; if the target vocabulary is still 
called TARGET, the first word will link to 
the previous last word, making a circle that 
prevents proper searching. This is avoided 
by setting up a dummy vocabulary for tar- 
get words in the second pass. Linkages in 
DUMMY will run from the latest word rede- 
fined, down to the first word. Linkages in 
TARGET will be from the final word down 



through all words defined only once, then 
down through the words that are also in 
dummy, because the dummy links are re- 
peats of the original TARGET links! 

The first pass has some improper com- 
ponent addresses, but each word is at its 
correct location, so the second pass will find 
a correct address for each component — 
including any that were not in existence 
when they were needed in the first pass. 
Thus, host addresses and 0000s will be 
replaced by the desired target addresses. 



One problem... is to 
keep CONTEXT and 
CURRENT under 
control. 



All colon words are subject to a second 
pass; assembled primitives need not be 
redefined, since all components are cor- 
rectly located on the first pass. Where a 
primitive makes a reference to an address in 
another primitive, or to the storage cell of a 
Forth variable, labels are used and label 
addresses are not substituted until the end of 
the first pass, so they do not need correcting. 
Skipping the screens of primitive words 
during the second pass requires adjusting 
links and the dictionary pointer across the 
skip. For example, consider a group of 
screens of primitives to be skipped; when it 
is reached in the second pass, identify the 
last word in these screens as latest (so 
that the next word defined will link to it — 
in a multi-threaded system, this must be 
done for each thread) and set the dictionary 
pointer to the first byte of the header of the 
first word on the following screen, so that 
the overwriting will start in the proper loca- 



tion. 

It is convenient to group primitives into 
successive screens to simplify this maneu- 
ver. For example, in my definition of this 
metacompiler, the first ten screens are the 
basic primitives of Forth, followed by four 
screens of constants and variables, 27 
screens of colon words, and finally nine 
screens of primitive words. Only the 31 
screens in the middle are subjected to a 
second pass. 

During each pass, only host words are 
to be executed, but target words are to be 
compiled. Making TARGET the CURRENT 
vocabulary and HOST the context, 
solves most of the problem. All defining 
words, such as the colon, are selected from 
HOST. Immediate target words, however, 
would be executed. This is avoided by 
making immediate include SMUDGE, so 
that all immediate words in target are 
automatically passed over because of a 
smudge. A problem then arises when an 
immediate word is to be compiled by 
[ COMP I le ] ! This "Catch-22" situation is 
resolved by substituting a special version 
of [compile] in host: the SEEK com- 
ponent of [COMPILE] is modified to 
change the smudge status of each input- 
stream word, so that [COMPILE] can now 
find only smudged words. There are times 
when ' is needed for finding a target 
word — target must be the context, 
but the host ' is to be executed. This is 
handled by smudging the target definition 
of \ 

If a defining word that is missing in 
HOST is to be used in target, a suitable 
version of the defining word must be added 
to HOST. This can be done as an ad hoc 
addition from the metacompiler. For ex- 
ample, my minimal host does not have 
ARRAY as a defining word (intentionally), 
but my target needs an array VOC . LIST. 
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So a version of array is temporarily 
added to HOST. A modified version of 
VOCABULARY, called $V0CAB to avoid 
confusion, is also used for creating new 
vocabularies in the target during compila- 
tion. 

The ultimate machine to be defined is 
called FORTH, and this is defined as a 
vocabulary in target. Also defined in 
TARGET is the vocabulary NEW with one 
word in it, to test the compiler. 

Compiling 0000 for any word not found 
is achieved by substituting a special ad hoc 
version of interpret in HOST. (These 
modifications to HOST are not perma- 
nent — they are not made in HOST, but are 
substitutions put into HOST in memory by 
the metacompiler.) 

Since the final colon words must have 
TARGET generic execution procedure 
(rather than HOST code field references), 
the host's : (colon) must be redefined be- 
fore the second pass by substituting the 
target DOCOL for the host DOCOL in the 
host colon. Similarly, the target's exit 
must be substituted into the host's ; (semi- 
colon). All words compiled by immediate 
words in HOST must be replaced by their 
target counterparts so that target ad- 
dresses will be compiled. Examples of 
compilees to be substituted are ? branch, 

BRANCH, (DO) , ( LOOP ) , ( . " ) , etc. 

All the other special generic execution 
procedures (do var, dodoe , docon, etc.) 
must also be replaced in the second pass, 
and all of the addresses compiled by imme- 
diate compiling words must be updated 
before the second pass. 

Since both defining passes are opera- 
tions in host, vocabulary reference 
changes are made in the host's context 
and current. After the second pass, the 
SET . context (by which calling a vo- 
cabulary sets it to context) must be 
changed to refer to the target's context. 
The vocabulary specified to be searched 
next after a word is not found must also be 
changed in each secondary vocabulary to 
FORTH. BASE, dp, and fence must be 
properly initialized, the topword pointers) 
set in FORTH, and the starting word(s) at 
the origin linked back as the first word(s) in 

FORTH. 

The final step is to unsmudge all 
smudged words and call for a cold start of 
Forth. This newly definedForth can then be 
saved to disk. 



t* 1 



screens SCR 

\ 

1 HEX 

2 E6 CONSTANT N 

3 N 2- CONSTANT DIV 

4 N 3 + CONSTANT IP 

5 IP 3 + CONSTANT W 

6 W 2+ CONSTANT X3AVE 

7 E0 CONSTANT TEMP 
3 E2 CONSTANT TEMPI 

9 FDED CONSTANT COUT 

10 FC22 CONSTANT VTAB 

11 FC58 CONSTANT HOME 

12 FD35 CONSTANT INCH 

13 900 CONSTANT OR 1 6 

14 57B CONSTANT CH 

15 25 CONSTANT CV 



screens SCR tt 2 



1 3MAR39CHP 



\ 13MAR89CHP 

1 28 CONSTANT BASL 

2 FBC1 CONSTANT BASCALC 

3 C054 CONSTANT PAGE1 

4 CO 55 CONSTANT PAGE2 

5 BE0 3 CONSTANT B I. PARSE 

6 BE0C CONSTANT ERR. PRINT 

7 BE6C CONSTANT PN1 ADD 

8 BF00 CONSTANT ML I 

9 FD8E CONSTANT CROUT 

10 VARIABLE VOC . SAVE 

1 1 VARIABLE LFLA6 

12 VARIABLE DP . HOLD — > 

13 \ These ROM and ProDOS system constants provide -for using 

14 \ built-in operations, such as disk input and output 
15 



&N UMBER 
DUP >R 



BL = 



screens SCR # 3 

\ 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 
15 



1 3MAR89CHP 
C 2D = 



here — d trueshere false) ROT DUP 1+ 
-1 BEGIN DPL'l CONVERT DUP C3 DUP 2E = 
UHILE DROP REPEAT 
IF DROP R> IF DNEGATE THEN 1 
ELSE R> DROP >R DROP DROP R> 1- THEN ; 
^INTERPRET BEGIN SEEK ?DUP 

IF STATE 3 + 0= IF , ELSE EXECUTE THEN 
ELSE &N UMBER 
IF DPL 3 1+ 

IF [COMPILE] DLITERAL ELSE DROP [COMPILE] LITERAL THEN 
ELSE ." New word used as component; 0000 compiled" CR 

DROP , 
THEN 
THEN 

AGAIN ; — > 



scree 

\ 



10 
1 1 
12 

13 5 

14 \ 

15 \ 



ns SCR # 4 

Substitute & INTERPRET -for INTERPRET 
^INTERPRET DUP ' QUIT 12 + ! ' LOAD 40 + ! 
Create dummy ARRAY and VOC.LIST in host source 
DOARR SWAP 2* + ; 

ARRAY CREATE DUP -2 ALLOT [ ' DODOE 2+ ] LITERAL 

[ ' DOARR 2+ ] LITERAL . , DO . LOOP ; 
ARRAY VOC.LIST 

Provide vocabulary-crest inq word for 
&V0CAB CREATE -2 ALLOT [ ""DODOE 2 + 
[ ' SET . CONTEXT 2+ ] LITERAL , AO 81 
[ ' FORTH 6 + ] LITERAL , LAST 
1 BEGIN DUP VOC.LIST 3 UHILE 1+ DUP 7 = 
ABORT" Too many vocabularies" REPEAT VOC.LIST ! ; 
LOAD 

N0TA BENE: Need LOAD instead of — > to activate use 
of &INTERPRET in screen interpretations 



1 3MAR89CHP 



use while compilinci 
] LITERAL , 
HERE 2- DUP DUP DUP 
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screens SCR « 5 

\ 13MAR89CHP 

1 39 LFLAG ! \ Screen *38 is last colon-word de-fining screen 

2 \ It ends in LFLAG 3 LOAD — on -first pass loading proceeds 

3 \ to the second batch o-f primitives; on the second pass 

4 \ loading will be diverted to the wrao-up screens #A/B 

5 60 ' IMMEDIATE 6 + C! \ Makes IMMEDIATE also SMUDGE 

6 \ Rename host FORTH as FARTH 

7 ' FORTH >NAME 2+ 41 SWAP C! 

8 VOCABULARY FIRTH 

9 FIRTH DEFINITIONS 

10 FARTH 

11 ORIG DP 1 

12 ASSEMBLER 

13 CLEAR. TABLES 
14 

15 OD LOAD \ First screen -fo primitive definitions 



screens SCR tt 6 

\ Prepare -for second pass, rede-fining with overwrite 1 3MAR89CHP 

1 \ Redefine ARRAY to avoid erasing arrays de-fined in -first 

2 \ pass, e.g., VOC.LIST holding names o-f vocabularies 

3 \ de-fined in -first pass 

4 FARTH DEFINITIONS 

5 : ARRAY CREATE DUP -2 ALLOT [ ] LITERAL , [ ] 

6 LITERAL , , 2* ALLOT [ ] LITERAL , ; 

7 \ Now substitute FIRTH addresses in this definition 

8 FIRTH ' DODOE 2+ FARTH ' ARRAY 0E + ! 

9 FIRTH DOARRAY 2+ FARTH ' ARRAY 14 + ! 

10 FIRTH ' EXIT FARTH ' ARRAY 20 + ! 

11 \ Provide -for immediate compiling words to compile FIRTH 

12 \ addresses instead o-f the locked-in FARTH addresses 

13 FIRTH ' 'BRANCH DUP FARTH ' IF 4 + ! ' UNTIL 4 + ! 

14 FIRTH ' BRANCH DUP FARTH ' ELSE 4 + ! ' AGAIN 4 + ! 

15 — > 



scr 

1 
2 
3 
4 
5 
6 



1 3MAR89CHP 



9 
10 
1 1 
12 
13 
14 
15 



&U0CAB 65 + 



sens SCR tt ? 

FIRTH ' (LOOP) FARTH ' LOOP 4 + ! 

FIRTH ' <+LO0P) FARTH ' +LOOP 4 + ! 

FIRTH ' (DO) FARTH ' DO 4 + ! 

FIRTH ' LIT FAR TH ' LITERAL C + ! 

FIRTH ' (DOES) FARTH ' DOES> 4 + ! 

FIRTH '' (.") DUP FARTH ' . " OA + ! ABORT" 8 + 

FIRTH ' QUIT FARTH ' ABORT" 14 + ! 

FIRTH ' SP! FARTH ' ABORT " 10 + ! 

FIRTH ' VOC.LIST DUP FARTH ' &VOCAB 3C + 

FIRTH ' DODOE 2+ FARTH ' &VOCAB C + '. 

FIRTH ' DOCON FARTH ' CONSTANT 8 + ! 

FIRTH ' DOUAR FARTH . CREATE A5 + ! 



eens SCR tt 8 

\ 1 3MAR89CHP 

\ Provide -for [COMPILED to compile SMUDGED IMMEDIATE words 
\ De-fine *SEEK to -find unsmudged words by smudging the sample 

: *SEEK BL WORD COUNT UPPER THREAD! STREAM DUP 20 TOGGLE 

I ' FIRTH 6 + ] LITERAL THREAD 3 2* + 3 (FIND) ; 
\ Substitute this into [COMPILE] 
' *SEEK ' [COMPILE] 4 + ! 

\ Next step is at the HEART OF THE METACOMPILER 
\ Rede-fine FARTH's : to -force FIRTH (in place o-f DUMMY) as 
\ context during compilation of the definition of a colon-word 
: CLASS R> 3 2+ LAST NAME> ! ; 

: : ?EXEC CONTEXT 3 ! CSP CREATE FIRTH I CLASS DOCOL ; 
RTH ' DOCOL FARTH ' : 12 + ! 
RTH ' EXIT FARTH ' : OA + ! 



9 

10 \ 

1 1 : 

12 : 

13 FI 

14 FI 

15 — 



About Vocabularies 

One problem in developing a program 
like this metacompiler, which is operating 
in several vocabularies, is to keep con- 
text and CURRENT under control. In the 
case of defining vocabularies during com- 
pilation, the following routine was used: 

CONTEXT @ CURRENT @ 
&VOCAB FORTH 
&VOCAB NEW 
FIRTH 

NEW DEFINITIONS 
: NEWTEST 

." NEWVOC" ; 
CURRENT ! 
CONTEXT ! 

The other place requiring a juggle is in 
defining the colon words. Forth normally 
makes the CURRENT vocabulary the CON- 
TEXT during a definition, so that compo- 
nents will be found in the appropriate vo- 
cabulary. In this case, we want firth to 
be the context during the redefinition phase 
in which DUMMY is CURRENT. Screen 
eight redefines the host colon to accom- 
plish this. 

My realization of this concept com- 
prises 12 screens of metacompiler instruc- 
tions, followed by the definitions of the 
desired Forth. In my case, these definitions 
take 53 screens. I wish to emphasize that 
these definitions are all in standard forms, 
with no special considerations for the 
metacompiler (except for the use of &VO- 
CAB when defining additional vocabular- 
ies, and this could be avoided by using 
vocabulary as its name); actually, these 
definitions were the Forth language de- 
scription of my assembly program for 
generating my Forth. The host is based on 
a minimal version of Forth that has to meet 
only two requirements: it must be able to 
load screens, and it must support an assem- 
bler. The minimal version with the assem- 
bler compiled onto it is the host of the 
above discussion. In my Apple ][e, HOST 
lies from $5000 up, leaving the 18K from 
$800-$4FFF available for the Forth being 
compiled. 

Machine-Specific Considerations 

The routines mentioned above are illus- 
trated by the following actual realization of 
a metacompiler, written for use with the 
Apple ][ family of computers. These 
screens are only for illustrating the prob- 

(Continued on page 40.) 
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NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE; 

•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI-SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICES START AT $70 

NEW<*-HP-150 & HP- 110 
VERSIONS AVAILABLE 



m 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA/ CA. 95055 
(408) 241-5909 



screens SCR « 9 
\ 



1 3MAR89CHP 



1 VOCABULARY DUMMY 

2 DUMMY DEFINITIONS 

3 \ Set linkages to last primitives on screen 22 

4 \ and dictionary pointer to -first words on screen 23 

5 FIRTH ' 3 >L INK FARTH THREAD 1 ! LATEST ! 

6 FIRTH ' EXIT >LINK FARTH 1 THREAD 1 ! LATEST ! 

7 FIRTH ' NEGATE >LINK FARTH 2 THREAD1 ! LATEST ! 

8 FIRTH ' SETUP >LNK FARTH 3 THREAD1 ! LATEST ! 
9 

10 FIRTH ' ORIGIN >LINK FARTH DP ! \ Leaves FARTH as CONTEXT 

11 \ After all colon-words rede-fined, return to screen *A 

12 \ for wrap -up 

13 A LFLA6 1 \ After second pass, screen *33 cioes to screen *A 

14 ASSEMBLER 

15 16 LOAD \ Go to screen 22 to start second pass 



screens SCR # 10 

\ 



FARTH DEFINITIONS 

HEX 8800 DP ! \ To avoid overwrites 

: < UNSMUDGE > 3 BEGIN DUP 2+ DUP C3 20 AND IF CR DUP 
DUP 20 TOGGLE THEN DROP 3 DUP 3 AO 81 = UNTIL DROP 




1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

1 1 

12 

13 CHNAGE . SET 

14 NEW. SEARCH 

15 — > 



screens SCR # 11 



1 3MAR89CHP 



ID. 



UNSMUDGE 4 DO C ' 3 FIRTH 6+12*+ < UNSMUDGE) LOOP ; 
CHANGE. SET [ FIRTH ' SET . CONTEXT FARTH 2+ 3 LITERAL 
1 BEGIN OVER OVER VOC.LIST 3 ?DUP 
WHILE NAME> >B0DY ! 1+ REPEAT DROP DROP DROP ; 
NEW. SEARCH ['] FORTH 6+2 BEGIN OVER OVER V0C.LIST 3 ?DUP 
WHILE NAME> OE + ! 1+ REPEAT DROP DROP DROP ; 



\ 



1 3MAR89CHP 
in t ' 3 wi th the FORTH 
and C ' 3 are smudged ! 



1 \ Special problem - replace the 

2 \ version, remembering that both 

3 *SEEK ' DROP *SEEK [ ' ] DROP 4 

4 \ Make FIRTH both CONTEXT and CURRENT in FARTH 

5 ' FIRTH 6 + DUP CONTEXT ! CURRENT ! 

6 \ Initialize BASE , DP, and FENCE 

7 A BASE ! DP. HOLD 3 DP ! \ DP. HOLD stored at end of screen 64 

8 \ Set topword pointers, and set 0000 as next search after FORTH 

9 ' FIRTH 6 + ' FORTH 6+8 CM0VE ' FORTH 0E + ! 

10 \ Make FORTH the CONTEXT and CURRENT in FIRTH 

1 1 ' FORTH 6 + DUP CONTEXT ! CURRENT ! 

12 ' FORTH 4 + DUP DUP DUP ' NEXT >LINK ! ' CLIT >LINK ! 

13 ' LIT >LINK ! ' I >LINK ! 

14 CONTEXT 3 PAD 8 CMOVE PAD 4 LARGEST FENCE ! DROP 

15 UNSMUDGE COLD 



screens SCR » 12 

DESCRIPTION OF SCREENS 12 THROUGH 64 1 3MAR89CHP 

1 

2 Screens 12/21 hold assembly definitions of primitives 

3 22/25 hold various constants and variables; these must be 

4 defined under the ASSEMBLER vocabulary because several 

5 labels are assigned; and redefined to convert the addresses 

6 of the generic execution procedures for constants and variables 

7 to addresses in FIRTH in place of the original addresses in 

8 the HOST 

9 25 ends with FARTH to leave the ASSEMBLER vocabulary 

10 26/55 hold colon definitions; 55 ends in LFLAG 3 LOAD 

11 56 starts with 6 LFLAG ! to take effect at the end of 64 

12 56/64 hold the second batch of primitive definitions 

13 64 ends in 

14 END FARTH HERE DP. HOLD ! 

15 LFLAG 3 LOAD 
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Many FIG Board Terms Drawing to a Close 

CALL FOR NOMINATIONS 



The nominating process for the selection 
ofofficersforthe 1991 FIG Board of Direc- 
tors is starting. The candidates elected to 
the five available director positions will be 
able to serve a three-year term, with the 
possibility of reelection thereafter. 

To be considered for nomination or to 
obtain a nomination by petition, you should 
carefully read these instructions. The 
nomination and subsequent election proc- 
esses take place as proscribed by our By- 
laws. As the following extract from Article 
VIII, Section 1 of the Bylaws indicates, 
open elections are made possible by the 
timely completion of steps stretching over 
at least a five-month time period. The first 
step has already been taken by the current 
Board of Directors through the appoint- 
ment of Mike Elola and Jack Brown to the 
Nominating Committee for this election 
year. 

FROM THE BYLAWS... 

(a) Nominating Committee. The Board of 
Directors shall appoint a Nominating 
Committee composed of at least two 
Directors to select qualified candidates 
for election to vacancies on the Board of 
Directors at least 120 days before the 
election is to take place. The Nominat- 
ing Committee shall make its report at 
least 90 days before the date of the 
election, and the Secretary shall pro- 
vide to each voting member a list of 
candidates nominated at least 60 days 
before the close of elections. 

(b) Nominations by members. Any 25 
Members may nominate candidates for 
directorships at any time before the 
90th day preceding such an election. 
On timely receipt of a petition signed by 
the required number of Members, the 
Secretary shall cause (he names of the 
candidates named on it to be placed on 
the ballot along with those candidates 
named by the Nominating Committee. 



(c) The Corporation shall make available to 
all nominees, an equal amount of space 
in Forth Dimensions to be used by the 
nominee for a purpose reasonably re- 
lated to the election. 

(d) Should a petition be received, a ballot 
process will be provided to the voting 
membership. Otherwise, the Secretary 
shall cast a unanimous ballot for the 
candidates as proposed by the Nominat- 
ing Committee. 

OBTAINING A NOMINATION 

The Nominating Committee selects 
candidates for the ballot FIG members 
who wish to become candidates this way 
should submit a letter requesting considera- 
tion by the Nominating Committee (c/o 
FIG office) before the deadline. 

Alternately, a potential candidate shall 
obtain at least 25 signatures from FIG 
members and send this petition to the FIG 
Secretary (c/o FIG office) before the dead- 
line. The names of qualifying candidates 
are placed directly on the voting ballot. 

The deadline for submitting either nomi- 



nating petitions or letters requesting con- 
sideration by the Nominating Committee is 
August 31, 1990. Send these items to the 
FIG office at P.O. Box 823 1 , San Jose, CA 
95155. 

(If the Secretary does not receive any 
nominating petitions by August 31, 1990, 
then the Secretary will cast a unanimous 
vote for the candidates selected by the 
Nominating Committee. In such a case the 
membership at large will not receive voting 
ballots.) 

The next important date after August 3 1 
of this election year is September 14. It is 
the deadline for candidates to submit their 
candidate statements so that they can ap- 
pear in the November-December issue of 
Forth Dimensions. 

Ballots will be included in the Novem- 
ber-December issue of Forth Dimensions, 
if necessary. The voting ballots must be 
returned to the FIG office by December 3 1 , 
1990. The newly elected directors assume 
their duties the following day. 



The following FIG members nominate <candidate-name> to the FIG Board of 
Directors. 



MEMBER NAME 
(Please Print) 

<namel> 
<name2> 
<name3> 



<name25> 



MEMBER 
SIGNATURE 

<namel> 
<name2> 
<name3> 



<name25> 



MEMBER 
NUMBER 

<numberl> 
<number2> 
<number3> 



<number25> 



Nominating Petitions must be worded as is shown 
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BEST OF 

GENIE 

GARY SMITH - LITTLE ROCK, ARKANSAS 



fifews from the GEnie Forth 
RoundTable — One of the most common 
questions asked on the GEnie Forth 
RoundTable Bulletin Board, if not the very 
most common, is, "What Forth should I get 
for my (fill in computer/chip/applica- 
tion)?" This is not an unreasonable query — 
even from a seasoned Forth programmer — 
when one considers there were 145 files 
posted in our on-line Library #4, "Public 
Domain and Sample Systems," the evening 
I was writing this column. Expect one or 
two additions by the time this piece is deliv- 
ered to your mailbox. While that means 
there are many offerings to filter through 
for the one that might best serve your needs, 
it also means there is probably a kernel 
available for your needs. Keep in mind, this 
does not include the splendidly supported 
products provided by systems vendors and 
embedded-board and programmed-chip 
vendors. 

First let's examine some specific re- 
quests and the responses they elicited. Then 
I will close this with a sampler of some of 
the public-domain kernels available in the 
library, including some rather unique ones. 

Topic 7: 

Which Public-Domain Kernel? 

From: Alex Kozak 
Re: 8080fig-FORTH 

I'm looking for an 8080 fig-FORTH 
with source in CP/M ASM. 

To: Alex Kozak 
From: Gary-S 

Alex, there are two kernels on GEnie 
(which I know are also available on xCFB s) 
you may wish to consider: 

• GEnie #1418. FORTHLIB .ARC is a 79- 
Standard kernel modeled after Glen 



Haydon's All About Forth. 
• GEnie #701. UNI4TH80.ARC is 
Uniforth' s public-domain sampler, but is 
quite complete. 

If neither of these meets your needs, I 
can upload to GEnie (and it will be ported 
to the xCFBs if you can't get on GEnie) a 
public-domain fig-FORTH written for a 
Kaypro n you should be able to run as-is on 
your Ozzie. I had to massage it some to get 
it to go on a Bondwell-12, but I don't think 
you will have the same problem with your 
0-1. —Gary 

It's hard to imagine a 
computer for which 
there is no Forth, 



From: Ben Combee 
Re: Forth for the IBM 

Do you know about a good public- 
domain Forth for an IBM XT-compatible 
that comes with (or has available) words to 
access EGA graphics? I have used F83 
(dated rather a ways back) but did not like 
its interface. 

Also, does anyone know of a good inter- 
active tutorial for Forth that will run on the 
same system? I have seen similar programs 
for Turbo Pascal and the other "in" lan- 
guages. While I have read both editions of 
Starting Forth, I still am having problems 
getting anything done. 

To: Ben Combee 

From: Sysop (ECFB/Shifrin) 

You may be interested in checking out 
Tom Zimmer's F-PC. It's built on F83, is 
text-file based, and has numerous exten- 
sions including a number for EGA and 



VGA graphics. Look for FPC225-1.ZIP 
through FPC225-5.ZIP. If you can't find it 
locally, you're welcome to log in here to 
download it. You can also order the base 
system from the author for $25. 

Re: "Also, does anyone know of a good 
interactive tutorial for Forth that will run on 
the same system?" 

The two Forth boards and GEnie have 
an on-line tutorial based on this implemen- 
tation. It's too big to network, but you're 
welcome to stop by and download the les- 
sons or participate in that conference. Good 
luck! 

From: Bob Bile ski 
Re: What Forth 

I would like to start learning Forth by 
picking a system that is current and that I 
can grow with. After downloading a num- 
ber of Forths, I felt F88 by Zimmer was as 
close to a friendly language as I've seen. 
I've read that FPC225 is better because it is 
based on Zimmer's Forth. I guess at this 
point I'm totally baffled by the millions of 
Forths available, as well as the number of 
extensions and fixes. Should I start with 
FPC225, F88, TIL, Harvard, LMI, F83, 
F83X, Zimmer's, etc... Should I use one 
from the BBS or can I purchase a Forth and 
all the attachments from one source? I 
spoke to Offete about the FPC225 (total 
package) and all I really came away with is 
"...very, very good. Send check. $75. 
You'll like it very much." 

I give up. Perhaps you can advise what 
would be the best long-term Forth to pur- 
chase. Does anyone sell Forth diskettes and 
tutorials, so I can minimize my BBS phone 
charges? I suppose the vast amount of 
unstructured Forth products makes many 
shy away from this language. Maybe I'm 
missing something. I'd appreciate any info 
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you might give me... Thanks. 

To: Bob Bileski 
From: Steve Palincsar 

Bob, what Forth to get should be, in 
part, determined by what you want it for, 
what you intend to do with it, and the state 
of your budget For example, LMI and 
Harvard Softworks — to name only two — 
both have excellent, very complete prod- 
ucts suitable for professional-level work, at 
corresponding prices. With either of these 
systems, you'll get a fine product (actually, 
LMI has a number of fine products, both 16 
and 32 bit, for both DOS & OS/2). There are 
any number of public-domain Forths out 
there, as you've discovered, some of which 
have a lot of features but all of which seem 
to have a chaos of versions, incompatible 
extensions, etc. There are systems that fit 
into about 4K, and there are systems that 
seem to take about 400K. I think some of 
Jerry's text files here, including 
"which4th" might be of help to you, but the 
most important thing is to decide what you 
want to do with it. If it's presently learning 
something about the language, to get a feel 
for it, you might want to start with a fairly 
simple (and limited) public-domain sys- 
tem. 

Unless, of course, 400+ dollars is a 
mere bagatelle. . . 

To: Steve Palincsar 
From: Bob Bileski 

I see what you mean. I originally wanted 
to use Forth for an embedded controller 
project. After downloading a number of 
Forths, I realized that ROMming a Forth 
kernel is not as easy as I was led to believe. 
I think I will use F-PC Forth for my learning 
process at this time. As for the controller, 
I'll use the Intel 80c52 Basic microcon- 
troller; it has all the EPROM burning, 
machine calls, etc. that I need built-in. As 
farasbeingslowerthanForth.thatwon'tbe 
a problem. I looked at ZenForth, but 
couldn't find documentation to get me 
going. Perhaps I really need to learn what 
I'm doing before I can make any intelligent 
decisions in regards to using Forth for 
control projects (non-commercial). 

From: DanMiller 

Also check Pygmy for an 8088 version 
of cmForth, which is a good minimal sys- 
tem for embedded control. Pygmy, trans- 
lated by F. Sergeant is available on GEnie, 



and includes a small metacompiler to gen- 
erate code. cmForth for the RTX processor 
is ROMmable. Pygmy includes notes on re- 
generation. 

From: Gary-S 

Re: "Does anyone have a public-domain 
x386, x286, or 680xx Forth system they can 
easily send me over the network to run on 
either kind of Sun workstation?" 

Sun workstation => unix => Mitch 
Bradley's cForth. 

Easy solution: send $50 to P.O. Box 
4444, Mountain View, California 94040. 

From: Eric Therkelsen 

I like what I've seen of Forth (F83 and 
the Inner Access S8), and intend to make it 
my principal language for in-house projects 
(and out-house, if I can sell it). Can anyone 
recommend a Forth package for the PC 
(MS-DOS) that: 

• has a fairly complete set of extensions for 

string handling, file access, and math, 
including floating point; 

• is more or less in the mainstream — that is, 

whose extensions aim more or less in the 
direction Forth seems to be headed; 

• has been around long enough to be stable 
and has a good user base. 

Wish list 

• allows precompiled function libraries; 

• interfaces to the hardware either via DOS 

functions (rather than using ROM-BIOS 
services) or via redefinable words, so it 
will run on the Z100 as well as on AT- 
compatibles. 

• internals available, metacompiler, etc. I 
don't want to have to use these, but I like 
to be able to if necessary. Also, they're 
fun to play with late at night 

Any help would be greatly appreciated. 

To: Eric Therkelsen 
From: Steve Palincsar 

HS/Forth will do all that you ask, in- 
cluding being able to use precompiled C 
libraries. It includes a metacompiler and all 
the string functions described in Kelly & 
Spies' Forth: a Text and Reference, and is 
as solid and complete a system as you could 
wish for. 

To: Ben Combee 
From: Steve Palincsar 



Ben, if you're looking for a public- 
domain Forth for the PC that has more 
pizazz than F83, F-PC is your logical 
choice. By the way, the most recent version 
of F83 is about a 1984 date. You can getF- 
PC from the Forth Interest Group, from 
C.H. Ting's Offete Enterprises, or direct 
from Tom Zimmer, I believe, if you can't 
find a BBS that has it. 

Ported from uucp => 

Looking for versions of Polack's FPT- 
F83.ARC and F83 that run together. I 
would like an 8087 interface in Forth. I 
tried F-PC and the program was too big to 
load on my 256K Sanyo MBC 555 (IBM- 
compatible) machine with two 360K 
drives. — Jina Chan 

To: well! gars@LLL- 
WINKEN.LLNL.GOV 
sphinx@milton.u.washington.edu 
Re: 8087 interface 

We are currently trying to port Forth 
archives to Simtel20. 1 think F83 is already 
there. I am going to post your inquiry and 
my reply to ForthNet for confirmation. 

uunet!swbat!texbell!ark!lrark!glsrk!gars 

(My own unix sys — Gary) 

From: Stephen Minton 

Subj: F83 (L&P) CP/M version 

I need to download the latest available 
version of F83 (L&P) for CP/M (I have 
1.00). Where would I find this, and was it 
updated to 2.10 like the PC version? 
Thanks! 

From: Gary-S 
To: Stephen Minton 

There are several upgraded L&P F83s 
available on GEnie and the xCFBs for 
CP/M users. They did not follow the 2.10 
version notation, but have such additions 
as full-screen editors and alphabetized 
word lists. You may prefer to look at the 
Silicon Valley FIG (John Peters) disks — 
posted on GEnie and the xCFBs — and roll 
your own. There is also the Australian M- 
20 you may wish to consider, which ac- 
cepts text files. 

From: Scott Roberts 
Re: Forth source for 8088 

Does anyone know of a Forth system 
that would be suitable for storing in ROM 
of a controller based on the Intel 8088? If I 
could get an assembler source listing, etc., 



Volume XII, Number 2 



37 



Forth Dimensions 



I could modify it to suit my system. Thanks 
in advance. 

To: Scott Roberts 
From: Jerry Shifrin 

You might want to look into the Zen- 
Forth files available on the xCFBs, GEnie, 
and perhaps even get in touch with Martin 
Tracy (their author). I understand that Zen 
has been successfully ROMmed into vari- 
ous environments. 

From: Ian Green 
Re: cmForth 

Anybody seen a cmForth system for 
DOS? I currently only have F-83 in my 
tools directory and would like a copy of 
cmForth to fiddle with. 

A brief look at some of the kernels 
posted to library four will satisfy most 
everyone that there is likely a public system 
available for your computer. It is but a 
modem call away. Some of the files for 
various computers include the following : 

Number: 1710 
Name: POCKET4.SIT 
Address: C.Heilman 

Description: This Macintosh Stufflt file 
contains the Pocket Forth vers. 4 applica- 
tion and Deck Accessory. Also includes a 
number of extension source code files. 

Number: 1647 
Name: MX20.ARC 
Address: L Collins 

Description: Text-based Forth for CP/M 
from Lance Collins MM FORTH 

Number: 1596 

Name: GSFORTH.BQY 

Address: D.M.Holmes 

Description: This contains the main file in 

the Apple GS Forth Demo Package. 

Number: 1541 

Name: STFORTH.ARC 

Address: ECFB 

Description: Forth-83 version 1 .0 for Atari 
ST distributed by the San Leandro Com- 
puter Club. 

Number: 1846 

Name: PURPLE.FORTH.BQY 
Address: JPurple 

Description: FIG for the Apple II series. 
This file has been compressed using an 
Apple-specific compression technique. 



Variety is also ever present, as evi- 
denced by this incomplete list of MS-DOS- 
specific files. Note, I didn't even bother 
with the FIG, L&P F-83, and Uniforth 
sampler. 

Number: 900 
Name: BBL.ARC 
Address: GreenJECFB 
Description: This is Roedy Green's unique 
gift to the Forth world. It is a very fast 32- 
bit public-domain (except for military use) 
Forth that uses multiple pointers. 

Number: 1964 
Name: F-PC35-1.ZIP 
Address: D.Ruffer 

Description: This is version 3.5 of Tom 
Zimmer's F-PC for MS-DOS computers. 
F-PC is a turbo-like environment for MS- 
DOS Forth users. F-PC comes with an 
amazing array of support files, and is easily 
the banner system for the maxi-Forth pro- 
ponents. 

Number: 1939 

Name: PYGMY12.ARC 

Address: F.Sergeant 

Description: Here is Pygmy Forth version 
1.2. It is faster, more accurate, and more 
compatible. It automatically sets up for 
color or monochrome monitors. Turnkey is 
much easier with DEFERed BOOT. As 
always, it includes full source code, assem- 
bler, metacompiler, documentation, and a 
Starting Fort/i-compatibility file. Pygmy is 
representative of the minimalist-Forth 
approach. Gary 

The arguments, from those running 
Unix and Unix-like environments, that 
there were no good Forths available for 
them, vanished sometime back with Alan 
Pratt's public-domain cForth and Mitch 
Bradley's supported CFORTH-83. Here 
are two more-recent entries for that arena. 

Number: 2003 

Name: BOTFTH68.ARC 

Address: Gary-S 

Description: botForth is another effort at a 
clean, universal, minimal Forth kernel. 
This is the 2/90 port to MC68K CPUs. 
There are no associated Makefiles. 

Number: 1944 
Name: TILE 
Address: Gary-S 

Description: MikaelPatel's public-domain 



F83 — written in Unix shells. 

Language is not necessarily a barrier to 
using Forth, either. Witness these German 
and Russian Forth versions. 

Number: 1576 
Name: VOLKS4TH.ARC 
Address: K Schleisiek 
Description: Documentation for this is in 
German, so it's pretty hard for me to tell 
you anything about it, except that it's for a 
PC. Here is the Copyright: Die Programme 
und die zugehrigen Quelltexte knnen frei 
verwendet werden. Das beinhaltet die 
Weitergabe und Nutzung der Programme 
und gilt selbstverstndlich auch fr Applika- 
tionen, die auf volksFORTH aufgebaut 
sind. Das Handbuch unterliegt dem Copy- 
right (c) 1985 - 1988 Klaus Schleisiek, 
Ulrich Hoffmann, Bernd Pennemann, 
Georg Rehfeld und Dietrich Weineck. 

Number: 1737 

Name: ASTR04TH.ARC 

Address: D.Ruffer 

Description: AstroFORTH, from Russia, is 
a software development system for design 
software of different kinds. AstroFORTH 
includes the Forth-83 language standard, 
extended by a number of service proce- 
dures and software packages providing 
users with additional facilities. Astro- 
FORTH may be used on IBM PC XT/AT- 
compatible computers, equipped with the 
i8086/i8088 microprocessors. The system 
operates under the control of MS-DOS. For 
the system to work, one needs 128K main 
memory, a floppy/hard disk drive, a color/ 
monochrome display controller, and (if 
required) a printer. 

/ will end this session with evidence it 
would be difficult to imagine a computer 
environment for which there is no Forth. An 
argument has raged about the Forth-like 
qualities of PostScript, Adobe System's de 
facto graphics system. There are many 
features of PostScript that smack strongly 
of a Forth heritage. In answer to the argu- 
ments, Mitch Bradley created a skeletal 
version of Forth in — yep! — PostScript. 

Number: 1995 
Name: PSFORTH.02.90 
Description: In response to messages from 
Doug Philips regarding why "PostScript 
does not qualify as Forth," Mitch Bradley 
(Continued on page 40.) 
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Forth Interest Group 

The Forth Interest Group serves both expert 
and novice members with its network of 
chapters. Forth Dimensions, and conferences 
that regularly attract participants from around 
the world. For membership information, or to 
reserve advertising space, contact the adminis- 
trative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 

Dennis Ruffer, Vice-President 

John D. Hall, Treasurer 

Wil Baden 

Jack Brown 

Mike Elola 

Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 

In Recognition 

Recognition is offered annually to a person 
who has made an outstanding contribution in 
support of Forth and the Forth Interest Group. 
The individual is nominated and selected by 
previous recipients of the "FIGGY." Each re- 
ceives an engraved award, and is named on a 
plaque in the administrative offices. 

1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

ANS Forth 

The following members of the ANS X3 J14 



Forth Standard Committee are available to per- 
sonally carry your proposals and concerns to the 
committee. Please feel free to call or write to 
them directly: 

Gary Betts 
Unisyn 

301 Main, penthouse #2 
Longmont, CO 80501 
303-924-9193 

Mike Nemeth 
CSC 

10025 Locust St. 
Glenndale, MD 20769 
301-286-8313 

Andrew Kobziar 

NCR Medical Systems Group 

950 Danby Rd. 

Ithaca, NY 14850 

607-273-5310 

Elizabeth D. Rather 
FORTH, Inc. 

1 1 1 N. Sepulveda Blvd., suite 300 
Manhattan Beach, CA 90266 
213-372-8493 

Charles Keane 
Performance Packages, Inc. 
515 Fourth Avenue 
Watervleit, NY 12189-3703 
518-274^774 

George Shaw 
Shaw Laboratories 
P.O. Box 3471 
Hayward, CA 94540-3471 
415-276-5953 

David C. Petty 
Digitel 

125 Cambridge Park Dr. 
Cambridge, MA 02140-23 1 1 

Forth Instruction 

Los Angeles — Introductory and intermedi- 
ate three-day intensive courses in Forth pro- 
gramming are offered monthly by Laboratory 
Microsystems. These hands-on courses are de- 
signed for engineers and programmers who need 



to become proficient in Forth in the least amount 
of time. Telephone 213-306-7412. 

On-Line Resources 

To communicate with these systems, set your 
modem and communication software to 300/ 
1200/2400 baud with eight bits, no parity, and 
one stop bit, unless noted otherwise. GEnie 
requires local echo. 

GEnie 

For information, call 800-638-9636 

• Forth RoundTable 
(ForthNet link*) 

Call GEnie local node, then type M710 
or FORTH 

SysOps: Dennis Ruffer (D.RUFFER), Scott 
Squires (S.W.SQUIRES), Leonard Mor- 
genstern (NMORGENSTERN), Gary 
Smith (GARY-S) 

• MACH2 RoundTable 
Type M450 or MACH2 
Palo Alto Shipping Company 
SysOp: Waymen Askey (D.MILEY) 

BIX(ByteNet) 

For information, call 800-227-2983 

• Forth Conference 

Access BK via TymeNet, then type j forth 
Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the : prompt 
Laboratory MicroSystems products 
Host: Ray Duncan (RDUNCAN) 

CompuServe 

For information, call 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colbum, Zach Zachariah, 
Ward McFarland, Jon Bryan, Greg Guerin, 
John Baxter, John Jeppson 

• Computer Language Magazine Conference 
Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip Rabi- 
nowitz, Regina Starr Ridley 

Unix BBS's with forth.conf (ForthNet links* 
and reachable via StarLink node 9533 on 

(Reference Section continued) 



Volume XII, Number 2 



39 



Forth Dimensions 



(Continued from previous page.) 

TymNetandPC-Pursuit node casfa on TeleNet.) 

• WELL Forth conference 

Access WELL via CompuserveNet 
or 415-332-6106 
Fairwitness: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwitness: Gary Smith (gars) 

PC Board BBS's devoted to Forth 
(ForthNet links*) 

• East Coast Forth Board 
703-442-8695 

StarLink node 2262 on TymNet 
PC-Pursuit node dcwas on TeleNet 
SysOp: Jerry Schifrin 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Real-Time Control Forth Board 
303-278-0364 

StarLink node 2584 on TymNet 
PC-Pursuit node coden on TeleNet 
SysOp: Jack Woehr 

Other Forth-specific BBS's 

• Laboratory Microsystems, Inc. 
213-306-3530 

StarLink node 9184 on TymNet 
PC-Pursuit node calan on TeleNet 
SysOp: Ray Duncan 

• Knowledge-Based Systems 
Supports Fifth 
409-696-7055 

• Drama Forth Board 
512-323-2402 

StarLink node 1306 on TymNet 
SysOps: S. Suresh, James Martin, Anne 
Moore 

• Harris Semiconductor Board 
407-729^949 

StarLink node 9902 on TymNet (toll 
from Post. St. Lucie) 

Non-Forth-specific BBS's with extensive Forth 
Libraries 

• Twit's End (PC Board) 
501-771-0114 
1200-9600 baud 

StarLink node 9858 on TymNet 
SysOp: Tommy Apple 

• College Corner (PC Board) 
206-643-0804 
300-2400 baud 

SysOp: Jerry Houston 



*ForthNet is a virtual Forth network that links 
designated message bases in an attempt to pro- 
vide greater information distribution to the 
Forth users served. It is provided courtesy of the 
SysOps of its various links. 



(Continued from page 24.) 

considerable function overhead of C, 
which just is not there in subroutine- 
threaded Forth. The moral is that you first 
pick your language and only then do you 
pick your benchmark! 
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programmer" whose chief disappoint- 
ment of 1988 consisted of attending a 
plant pathology conference in Acap- 
ulco while Forth' s own Charles Moore 
was visiting Sydney. Mr. Redmond 
welcomes letters from FD readers: 23 
Mirool Street, WestRyde, NSW 21 14, 
Australia. 
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produced this very minimal Forth kernel 
entirely in PostScript lexicon. It is by no 
means a full system, but does contain the 
seed elements from which to write a full 
kernel. 



To suggest an interesting on-line guest, 
leave e-mail posted to GARY-S on 
GEnie ( gars on Wetware and the Well), 
or mail me a note. I encourage anyone 
with a message to share to contact me 
via the above or through the offices of 
the Forth Interest Group. 



( Continued from page 33 .) 

lems and solutions discussed above; actual 
address offsets for the various plug-in 
modifications depend upon the details of 
the host source. The first two screens define 
various constants and variables to be used 
by HOST, not to be included in target. 
Screen three sets up the special definition 
of interpret that will compile 0000 
when an unfound word is requested. 

The host version of forth has to be 
renamed to avoid conflict; the substitute 
name must occupy the same dictionary 
thread. The (temporary) name for the T ar- 
Get must have the same number of letters 
as the host, and must also be in the same 
thread (screen five). The next two screens 
are the tricky part: target addresses must 
be substituted in a number of places. Note 
that these screens do not depend on the 
dialect being compiled — they are con- 
trolled entirely by the HOST vocabulary. 



Chester H. Page earned his doctorate 
at Yale and spent some 36 years at the 
National Bureau of Standards. His 
fir st Forth was Washington Apple Pi's 
fig-FORTH, which he modified to use 
AppleDOS, then ProDOS, and later to 
meet the Forth-79 and Forth-83 Stan- 
dards. Recently, he added many fea- 
tures ofF83, including a four-thread 
dictionary (but no shadow screens). 
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space used by the code is reclaimed. The 
order in which these actions occur is criti- 
cal. We must switch back to the standard 
allocation region before executing the 
code. Otherwise, words such as allot or 
, would effect the compile buffer instead 
of the standard dictionary. Also, the com- 
piled code must be executed before re- 
claiming the space it occupies. This allows 
] ] and [ [ to be re-entrant, since they 
could be called via the execute in [ [. 
For example, in the conditional load, the 
code in the file may contain interpreted 
control structures. 

A popular Forth programming tech- 
nique is to temporarily drop out of a colon 
definition with [ , do something, then res- 
ume compilation with ] . For consistency, 
this should also work with interpreted con- 



trol structures. Thus, the new definitions of 
[ and ] in the listing. [ saves the state in 
laststate and starts interpreting. ] re- 
stores the st ate. A final addition is the ini- 
tialization of laststate: 

: quit 

... state ! 
1 laststate ! 



In some Forth systems, ] also contains 
the compiler loop. Similar modifications 
should work in such systems, although I 
haven't tried this. 

An unsolved problem with this implem- 
entation of interactive control is the in- 
creased fragility of the compiler. If some- 
thing is amiss in the source code being 
compiled, the compiler can end up stuck in 
the compile buffer. Since the buffer is small, 



the space is quickly exhausted. 

Interpreted interactive control struc- 
tures may turn out to be only occasionally 
useful. On the other hand, as you grow 
accustomed to them, they may become in- 
dispensable. I would be interested to hear 
about the uses other Forth Dimensions 
readers find for them. 
References 

[1] Bradley, Mitch. "Interpreting Con- 
trol Structures— The Right Way," 
1987 FORMLConference Proceed- 
ings, pp. 126-130. 

John R. Hayes received an M.S. in 
computer science from Johns Hopkins 
University in 1986. He has written 
flight software in Forth for satellite- 
based magnetometer experiments and 
for the shuttle-based Hopkins Ultra- 
violet Telescope. 



\ Control structures. This section handles executing control structures 
\ interactively. 

200 region compileregion \ a compile buffer 

variable compilebuf f er \ remembers beginning of buffer 



]] 



\ ( ) Nest down one control structure level. If 

\ we were interpreting when ] ] was called, switch allocation 
\ to compile buffer. 

\ if we were interpreting 
\ switch to compile buffer 
\ remember where we start 
\ NON-PORTABLE: create code field 
\ bump nesting level 



state @ 0= if 

compileregion allocatefrom 
here compilebuf fer ! 
start : 

then 1 state +! ; 



[[ 



\ ( ) Unnest one control structure level. If we 

\ are now back in interpret state, execute what is in compile 
\ buffer and empty buffer. 



-1 state +! 
state @ 0= if 
compile exit 

dp >r compilebuf fer @ dup >r 
stdregion allocatefrom 
execute 
r> r> ! 
then ; 



\ bump nesting level 

\ if we are now interpreting 

\ compile a return from subroutine 

\ remember where buffer starts 

\ revert to standard allocation region 

\ execute compile buffer 

\ and empty compile buffer 



variable laststate \ for temporary drop from compile 

: [ state @ laststate ! state ! ; immediate 
: ] laststate @ state ! ; 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent S afford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of Forth Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodlak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 
4th Thurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 

(602) 381-1146 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 



• CALIFORNIA 

Los Angeles Chapter 
4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S.Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 
2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 pjn. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Bob Nash 
(916)487-2044 

San Diego Chapter 
Thursdays, 12 Noon 
Guy Kelly (619) 454-1307 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P Cupertino 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
IstMon., 7 p.m. 

Clifford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 
Charles Krajewski 
(203) 344-9996 



• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 
3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-081 1 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(708) 713-5365 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 
2nd Tues., 7 pjn. 
I/P Univ. Campus 
B71NeffHall 
Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa State Univ. 
214 Comp. Sci. 
Rodrick Eldridge 
(515)294-5659 



Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• MARYLAND 

MDFIG 

Michael Nemeth 
(301) 262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Bill erica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/ Ann Arbor Area 

Bill Walters 
(313)731-9660 
(313) 861-6465 (eves.) 

• MINNESOTA 
MNFIG Chapter 
Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 
1st Tues., 7 p.m. 
Thornhill Branch Library 
Robert Washam 
91 Weis Drive 
Ellisville, MO 63011 

• NEW JERSEY 
New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi 

(201) 338-9363 
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• NEW MEXICO 
Albuquerque Chapter 

1st Thins., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505) 298-3292 

• NEW YORK 
Rochester Chapter 

Odd month, 4th Sat., 1 pjn. 
Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716) 482-3398 

• OHIO 
Cleveland Chapter 

4th Tues., 7 p.m. 
Chagrin Falls Library 
Gary Bergstrom 
(216) 247-2492 

• Columbus FIG Chapter 
4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 

(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 
p.m. 

CFC. 11 W. Monument Ave. 
#612 

Gary Ganger (513) 849-1483 

• OREGON 

Willamette Valley Chapter 
4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-51 13 

• PENNSYLVANIA 
Villanova Univ. Chapter 
IstMon., 7:30 p.m. 
Villanova University 
Dennis Clark 

(215) 860-0700 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

3rd Wed., 7 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Richard Secrist 

(615) 483-7242 

• TEXAS 
Austin Chapter 

Matt Lawrence 
POBox 180409 
Austin, TX 78718 



Dallas Chapter 

4th Thurs., 7:30 p.m. 
Texas Instruments 
13500 N. Central Expwy. 
Semiconductor Cafeteria 
Conference Room A 
ClifPenn(214) 995-2361 

Houston Chapter 
3rd Mon., 7:30 p.m. 
Houston Area League of PC 
Users 

1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713)461-1618 

• VERMONT 
Vermont Chapter 

Vergennes 
3rd Mon., 7:30 p.m. 
Vergennes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

• VIRGINIA 

First Forth of Hampton 
Roads 

William Edmonds 
(804) 8984099 

Potomac FIG 

D. C. & Northern Virginia 
1st Tues. 

Lee Recreation Center 
5722 Lee Hwy., Arlington 
Joseph Brown 
(703)4714409 

E. Coast Forth Board 
(703) 442-8695 

Richmond Forth Group 
2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 
2nd Fri., 7:30 p.m. 
1219 N. 21st St., Superior 
Allen Anway (715) 394-4061 



INTERNATIONAL 

• AUSTRALIA 
Melbourne Chapter 
1st Fri., 8 p.m. 
Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 
BBS: 61 3 299 1787 



Sydney Chapter 

2nd Fri., 7 p.m. 

John Goodsell Bldg., RM 

LG19 

Univ. of New South Wales 

Peter Tregeagle 

lOBindaRd. 

Yowie Bay 2228 

02/524-7490 

Usenet 

tedr@usage.csd.unsw.oz 

• BELGIUM 
Belgium Chapter 
4th Wed., 8 p.m. 
Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 
BC FIG 

1st Thurs., 7:30 p.m. 

BCIT, 3700 Willingdon Ave. 

BBY, Rm. 1A-324 

Jack W. Brown 

(604) 596-9764 

BBS (604) 434-5886 

Northern Alberta Chapter 
4th Sat., 10a.m.-noon 
N. Alta. Inst, of Tech. 
Tony Van Muyden 
(403) 486-6666 (days) 
(403) 962-2203 (eves.) 

Southern Ontario Chapter 

Quarterly, 1st Sat., Mar., Jun., 

Sep., Dec., 2 p.m. 

Genl. Sci. Bldg., RM 212 

McMaster University 

Dr. N. Solntseff 

(416)525-9140x3443 

• ENGLAND 

Forth Interest Group-UK 

London 

1st Thurs., 7 p.m. 

Polytechnic of South Bank 

RM408 

Borough Rd. 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 

• FINLAND 
FinFIG 

Janne Kotiranta 
Arkkitehdinkatu 38 c 39 
33720 Tampere 
+358-31-184246 



• HOLLAND 
Holland Chapter 

Vic Van de Zande 
Finmark 7 
3831 JE Leusden 

• ITALY 
FIG Italia 

Marco Tausel 

Via Gerolamo Fomi 48 

20161 Milano 

02/435249 

• JAPAN 
Japan Chapter 

Toshi Inoue 

Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo.Bunkyo 113 
812-2111 x7073 

• NORWAY 
Bergen Chapter 

Kjell Birger Faeraas, 
47-518-7784 

• REPUBLIC OF CHINA 
R.O.C. Chapter 

Chin-Fu Liu 

5F, #10, Alley 5, Lane 107 
Fu-Hsin S. Rd. Sec. 1 
TaiPei, Taiwan 10639 

• SWEDEN 
SweFIG 
Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 
Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 Opfikon 

01 810 9289 

• WEST GERMANY 
German FIG Chapter 

Heinz Schnitter 

Forth-Gesellschaft C.V. 

Postfach 1110 

D-8044 Unterschleissheim 

(49) (89) 317 3784 

Munich Forth Box: 

(49) (89) 725 9625 (telcom) 

SPECIAL GROUPS 

• NC4000 Users Group 
John Carpenter 

1698 Villa St. 

Mountain View, CA 94041 

(415) 960-1256 (eves.) 
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CALL FOR PAPERS 

for the twelfth annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 23-25, 1990 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Conference Theme: Forth in Industry 

Papers are invited that address relevant issues in the development and use of Forth in 
industry. Papers about other Forth topics are also welcome. 

Mail abstract(s) of approximately 100 words by September 1, 1990 to FORML, 
P.O. Box 8231, San Jose, CA 95155. 

Completed papers are due November 1, 1990. 

Registration information may be obtained by telephone from the Forth Interest Group 
business office (408) 277-0668 or write to FORML, P.O. Box 8231, San Jose, CA 
95155. 

The Asilomar Conference Center combines excellent meeting and comfortable living 
accommodations with secluded forests on a Pacific Ocean beach. Registration 
includes use of conference facilities, deluxe rooms, all meals, and nightly wine and 
cheese parties. 
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